Index: /trunk/ccl/hemlock/src/interp.lisp
===================================================================
--- /trunk/ccl/hemlock/src/interp.lisp	(revision 801)
+++ /trunk/ccl/hemlock/src/interp.lisp	(revision 802)
@@ -452,5 +452,4 @@
                (progn
                  (unless (eq *current-buffer* *echo-area-buffer*)
-                   (when (buffer-modified *echo-area-buffer*) (clear-echo-area))
                    (unless (or (zerop (length cmd))
                                (not (value hemlock::key-echo-delay)))
@@ -469,4 +468,5 @@
                        (command 
                         (let ((punt t))
+                          (clear-echo-area)
                           (catch 'command-loop-catcher
                             (dolist (c t-bindings)