diff --git a/Apps/Listener/listener.lisp b/Apps/Listener/listener.lisp
index 643ece6..cfe6559 100644
--- a/Apps/Listener/listener.lisp
+++ b/Apps/Listener/listener.lisp
@@ -143,8 +143,7 @@
 (defmethod read-frame-command ((frame listener) &key (stream *standard-input*))  
   "Specialized for the listener, read a lisp form to eval, or a command."
   (multiple-value-bind (object type)
-      (let ((*command-dispatchers* '(#\,)))
+      (let ((*command-dispatchers* (adjoin #\, *command-dispatchers*)))
         (accept 'command-or-form :stream stream :prompt nil 
                 :default "hello" :default-type 'empty-input))
     (cond
--