Index: Drei/drei-clim.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp,v
retrieving revision 1.46
diff -u -r1.46 drei-clim.lisp
--- Drei/drei-clim.lisp	23 Oct 2008 20:47:57 -0000	1.46
+++ Drei/drei-clim.lisp	9 Feb 2009 16:23:56 -0000
@@ -339,6 +339,7 @@
 (defmethod additional-command-tables append ((drei drei-gadget-pane)
                                              (table drei-command-table))
   `(exclusive-gadget-table
+    #+nil
     ,(frame-command-table *application-frame*)))
 
 (defclass drei-area (drei displayed-output-record region
Index: Drei/drei.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei.lisp,v
retrieving revision 1.38
diff -u -r1.38 drei.lisp
--- Drei/drei.lisp	28 Mar 2008 21:09:43 -0000	1.38
+++ Drei/drei.lisp	9 Feb 2009 16:23:57 -0000
@@ -199,7 +199,7 @@
                   (accept
                    `(command :command-table ,(command-table (drei-instance)))
                    ;; this gets erased immediately anyway
-                   :prompt "" :prompt-mode :raw)
+                   :prompt "" :prompt-mode :raw :stream *minibuffer*)
                 ((or command-not-accessible command-not-present) ()
                   (beep)
                   (display-message "No such command")