--- a/Queue.st	Wed Jul 28 23:00:09 1999 +0200
+++ b/Queue.st	Wed Aug 04 16:10:14 1999 +0200
@@ -187,8 +187,8 @@
     pos := writePosition.
 
     (tally == sz) ifTrue:[
-	self error:'queue is full'.
-	^ self
+        self error:'queue is full' mayProceed:true.
+        ^ self
     ].
 
     contentsArray at:pos put:anObject.
@@ -326,5 +326,5 @@
 !Queue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.23 1999-04-23 12:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.24 1999-08-04 14:10:14 cg Exp $'
 ! !