diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0057533bb5..396b666718f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-27  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* menu-bar.el (menu-bar-showhide-scroll-bar-menu): Quote
+	`window-system'.
+
 	* tmm.el (tmm-get-keymap): Honour :visible in `menu-item'.
 	Add Keywords header.  Update Commentary section.
 	Update copyright notice.
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 416832f9454..6234ca873f4 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -524,7 +524,7 @@ Do the same for the keys of the same name."
 
 (define-key menu-bar-showhide-menu [showhide-scroll-bar]
   (list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu
-	:visible window-system
+	:visible 'window-system
 	:help "Select scroll-bar mode"))
 
 (defun showhide-menu-bar ()