--- a/Stream.st	Mon Aug 11 15:28:37 2003 +0200
+++ b/Stream.st	Mon Aug 11 16:46:05 2003 +0200
@@ -1623,7 +1623,7 @@
         readCount > 0 ifTrue:[
             count := outStream nextPutBytes:readCount from:buffer startingAt:1.
             count = readCount ifFalse:[
-                self error:'oops' mayProceed:true.
+                self error:'short write count' mayProceed:true.
             ].
             bytesWritten := bytesWritten + count.
         ].
@@ -2615,7 +2615,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.122 2003-07-22 18:00:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.123 2003-08-11 14:46:05 stefan Exp $'
 ! !
 
 Stream initialize!