X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=6be5b1aab45e05c05dae66478a562fa9cd0c1bc0;hp=7679735f813317fc4bae729165a36415cc9b583d;hb=b2f9a911ac1663fda4dc3cf18ade3334c01327b2;hpb=7e11c67b59dc07a46576b2acaa4657ee533df7d5

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 7679735..6be5b1a 100644
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -47,18 +47,27 @@
 (define readable-commands
   (list
    (direct-command "read" 'cmd-read)))
+
+(define readable-commands*
+  (append readable-commands
+          thing-commands))
+
 (define readable-actions
   (build-actions
    (cmd-read (wrap-apply readable-cmd-read))))
 
-(define-class <readable> (<gameobj>)
+(define readable-actions*
+  (append readable-actions
+          thing-actions*))
+
+(define-class <readable> (<thing>)
   (read-text #:init-value "All it says is: \"Blah blah blah.\""
              #:init-keyword #:read-text)
   (commands
-   #:init-value readable-commands)
+   #:init-value readable-commands*)
   (message-handler
    #:init-value
-   (simple-dispatcher (append gameobj-actions readable-actions))))
+   (simple-dispatcher readable-actions*)))
 
 (define (readable-cmd-read actor message)
   (<- actor (message-from message) 'tell