Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 356)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 357)
@@ -1264,5 +1264,5 @@
 (defmethod stream-unread-char ((s echo-stream) c)
   (call-next-method s c)
-  (setf (slot-value s 'did-untyi) nil))
+  (setf (slot-value s 'did-untyi) c))
 
 (defmethod stream-clear-input ((s echo-stream))