--- a/Stream.st	Thu Apr 25 15:11:08 2013 +0200
+++ b/Stream.st	Thu Apr 25 15:11:18 2013 +0200
@@ -2423,7 +2423,7 @@
         answerStream nextPut:element.
         element == last ifTrue:[
             ((rslt := answerStream contents) endsWith:aCollection) ifTrue:[
-                ^ rslt copyWithoutLast:aCollection size
+                ^ rslt copyButLast:aCollection size
             ]
         ].
     ].
@@ -3308,11 +3308,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.199 2013-04-15 13:38:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.200 2013-04-25 13:11:18 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.199 2013-04-15 13:38:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.200 2013-04-25 13:11:18 stefan Exp $'
 ! !