--- a/Stream.st	Wed Jul 09 18:20:24 2014 +0200
+++ b/Stream.st	Wed Jul 09 18:20:25 2014 +0200
@@ -2868,6 +2868,8 @@
 !Stream methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitStream:with: to aVisitor."
+
     ^ aVisitor visitStream:self with:aParameter
 ! !
 
@@ -3595,11 +3597,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.223 2014-06-23 09:38:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.224 2014-07-09 16:20:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.223 2014-06-23 09:38:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.224 2014-07-09 16:20:25 cg Exp $'
 ! !