Index: /branches/working-0711/ccl/level-1/l1-streams.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 12962)
+++ /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 12963)
@@ -347,5 +347,5 @@
 
 (defmethod stream-clear-input ((x t))
-  (report-bad-arg x 'stream))
+  (report-bad-arg x 'input-stream))
 
 (defmethod stream-clear-input ((stream input-stream)) nil)