Index: /branches/ide-1.0/ccl/hemlock/src/echo.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/echo.lisp	(revision 6755)
+++ /branches/ide-1.0/ccl/hemlock/src/echo.lisp	(revision 6756)
@@ -99,5 +99,5 @@
 
 (defhvar "Message Pause" "The number of seconds to pause after a Message."
-  :value 0.5s0)
+  :value 0.0s0)
 
 (defvar *last-message-time* 0
@@ -114,5 +114,5 @@
 (defun clear-echo-area ()
   "You guessed it."
-  (maybe-wait)
+  ;(maybe-wait)
   (let* ((b (current-buffer))
          (doc (buffer-document *echo-area-buffer*)))
@@ -137,5 +137,5 @@
   to give the luser a chance to see it.  String and Args are a format 
   control string and format arguments, respectively."
-  (maybe-wait)
+  ;(maybe-wait)
   (modifying-echo-buffer
    (cond ((eq *current-window* *echo-area-window*)
@@ -153,5 +153,6 @@
                    (insert-character mark #\newline)
                    (clear-echo-area)))
-            (apply #'format *echo-area-stream* string args)
+            (write-string (apply #'format nil string args)
+                          *echo-area-stream*)
             (setf (buffer-modified *echo-area-buffer*) t))))
    (force-output *echo-area-stream*)