diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d4cdddcd39..93ebfb3d4da 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-12-16  Markus Rost  <rost@math.ohio-state.edu>
 
+	* filesets.el (filesets-build-menu-now): Don't clear messages.
+
 	* allout.el: Avoid name conflicts with outline.el.  Replace
 	globally string "outline-" with string "allout-".  Replaced 1446
 	occurrences; there was no string "allout-" before the change and
diff --git a/lisp/filesets.el b/lisp/filesets.el
index 10d0d054c5f..e7f0358a739 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -2346,7 +2346,8 @@ bottom up, set `filesets-submenus' to nil, first.)"
        filesets-menu-in-menu)
       (setq filesets-updated-buffers
 	    (cons cb filesets-updated-buffers))
-      (message nil)
+      ;; This wipes out other messages in the echo area.
+      ;; (message nil)
       ;;(message "Filesets updated: %s" cb)
       )))