Index: /trunk/ccl/hemlock/src/listener.lisp
===================================================================
--- /trunk/ccl/hemlock/src/listener.lisp	(revision 735)
+++ /trunk/ccl/hemlock/src/listener.lisp	(revision 736)
@@ -195,5 +195,6 @@
                                            string))))))
 
-(defvar *pop-string* ":POP" "what you have to type to exit a break loop")
+(defparameter *pop-string* ":POP
+" "what you have to type to exit a break loop")
 
 (defcommand "POP or Delete Forward" (p)