--- a/WriteStream.st	Wed Oct 11 13:23:54 2006 +0200
+++ b/WriteStream.st	Wed Oct 11 13:32:44 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 PositionableStream subclass:#WriteStream
@@ -441,7 +440,7 @@
     nMore == 0 ifTrue:[
         "/ for the programmer..
         aCollection isCollection ifFalse:[
-            self error:'invalid argument (not a collection)'
+            self error:'invalid argument (not a collection)' mayProceed:true
         ].
     ].
 
@@ -591,5 +590,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.65 2006-08-09 19:42:25 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.66 2006-10-11 11:32:44 fm Exp $'
 ! !