X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=mudsync%2Froom.scm;h=0379d3da71d268586f42c0d22c594b99e7ef04c2;hb=4070fd4d76faaab3a07a055c21f30e0481310105;hp=3d860496e2fc4113e410f9c45483bb06f999057c;hpb=72bb4674c8058ada141da9f62a866e06381a8228;p=mudsync.git

diff --git a/mudsync/room.scm b/mudsync/room.scm
index 3d86049..0379d3d 100644
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -67,11 +67,11 @@
          #:init-keyword #:exits
          #:getter room-exits)
 
-  (container-commands
+  (container-dom-commands
    #:allocation #:each-subclass
    #:init-thunk
    (build-commands
-    ("look" ((loose-direct-command cmd-look-at)
+    (("l" "look") ((loose-direct-command cmd-look-at)
              (empty-command cmd-look-room)))
     ("go" ((empty-command cmd-go-where)
            (loose-direct-command cmd-go)))