--- a/Visitor.st	Mon Jun 08 18:16:25 2009 +0200
+++ b/Visitor.st	Mon Jun 08 18:35:38 2009 +0200
@@ -229,6 +229,12 @@
     self visitCollection:aCollection with:aParameter
 !
 
+visitStream:aStream with:aParameter
+    "visit a Stream"
+
+    self visitObject:aStream with:aParameter
+!
+
 visitString:aString with:aParameter
     "visit a String"
 
@@ -250,5 +256,5 @@
 !Visitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.5 2008-09-26 10:55:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.6 2009-06-08 16:35:38 stefan Exp $'
 ! !