*** menu.cl	Tue May  4 14:26:03 1993
--- menu.cl~	Thu Nov 26 11:50:32 1992
***************
*** 516,522 ****
  		  (if (not (numberp (read-from-string inputline)))
  		      (display-error (format nil "Numeric value expected~%~A is not a number" inputline))
  		    (setf (button-value b) (read-from-string inputline)))
! 		(setf (button-value b) (write-to-string (read-from-string inputline))))))
        (let ((tt (title (display b))))
  	(setf (title (display b)) (format nil "Enter new value~a" (if (equal (name b) "") ":" (concatenate 'string " for " (name b)))))
  	(clear-display (display b) :left (left b) :bottom (bottom b)
--- 516,522 ----
  		  (if (not (numberp (read-from-string inputline)))
  		      (display-error (format nil "Numeric value expected~%~A is not a number" inputline))
  		    (setf (button-value b) (read-from-string inputline)))
! 		(setf (button-value b) inputline))))
        (let ((tt (title (display b))))
  	(setf (title (display b)) (format nil "Enter new value~a" (if (equal (name b) "") ":" (concatenate 'string " for " (name b)))))
  	(clear-display (display b) :left (left b) :bottom (bottom b)
