Index: /trunk/ccl/hemlock/src/interp.lisp
===================================================================
--- /trunk/ccl/hemlock/src/interp.lisp	(revision 878)
+++ /trunk/ccl/hemlock/src/interp.lisp	(revision 879)
@@ -469,5 +469,5 @@
                         (let ((punt t))
                           (unless (eq *current-buffer* *echo-area-buffer*)
-                            (clear-echo-area))
+			    (clear-echo-area))
                           (catch 'command-loop-catcher
                             (dolist (c t-bindings)