Index: /branches/working-0711/ccl/level-1/l1-streams.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 7732)
+++ /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 7733)
@@ -62,6 +62,7 @@
 ;;; stream's current position, if that makes sense.  Return NIL
 ;;; if it doesn't make sense.
-;;; Catch cases where this is used when STREAM-ERRORs (SOCKET-ERRORs)
-;;; are signaled on non-STREAMs.
+;;; Some things (SOCKET-ERRORs) are signaled as STREAM-ERRORs
+;;; whose STREAM args aren't streams.  That's wrong, but
+;;; defining this method on T keeps things from blowing up worse.
 (defmethod stream-surrounding-characters ((s t))
   (declare (ignore s))