--- a/Stream.st	Mon Jun 08 18:35:38 2009 +0200
+++ b/Stream.st	Mon Jun 08 18:35:41 2009 +0200
@@ -2494,6 +2494,12 @@
     ^ self isEmpty not
 ! !
 
+!Stream methodsFor:'visiting'!
+
+acceptVisitor:aVisitor with:aParameter
+    ^ aVisitor visitStream:self with:aParameter
+! !
+
 !Stream methodsFor:'writing'!
 
 commit
@@ -2935,7 +2941,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.167 2009-06-06 11:38:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.168 2009-06-08 16:35:41 stefan Exp $'
 ! !
 
 Stream initialize!