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

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))