X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=mudsync%2Froom.scm;h=d201c052a96cd8536e94f65b511af79966da0273;hb=5128272343835236d5e3410e12728cb2efe5a39f;hp=0b0e85262f5f878b54bfbce6ca84a42dd49f3adb;hpb=b1beda2a66973d1644dc0a57a9742fb06ea1e770;p=mudsync.git

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 0b0e852..d201c05 100644
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -137,7 +137,9 @@ claim to point to."
      (lambda (exit)
        (equal? (exit-name exit) direct-obj))
      (room-exits room)))
-  (define to-address (slot-ref exit 'to-address))
+  (define to-address (if exit
+                         (slot-ref exit 'to-address)
+                         #f))
   (define player-name
     (message-ref (<-wait room (message-from message)
                          'get-name) 'val))