--- a/SequenceableCollection.st	Sun Jul 11 00:17:00 1999 +0200
+++ b/SequenceableCollection.st	Sun Jul 11 02:45:05 1999 +0200
@@ -196,6 +196,17 @@
     "Created: / 18.5.1999 / 14:50:04 / cg"
 ! !
 
+!SequenceableCollection class methodsFor:'Squeak compatibility'!
+
+streamContents:blockWithArg
+    |stream|
+
+    stream := WriteStream on:(self new:100).
+    blockWithArg value:stream.
+    ^ stream contents
+
+! !
+
 !SequenceableCollection methodsFor:'accessing'!
 
 after:anObject
@@ -4258,6 +4269,6 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.106 1999-07-06 23:54:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.107 1999-07-11 00:45:05 cg Exp $'
 ! !
 SequenceableCollection initialize!