--- a/SharedQueue.st	Tue Nov 30 12:53:01 2004 +0100
+++ b/SharedQueue.st	Tue Dec 14 18:10:10 2004 +0100
@@ -114,10 +114,12 @@
 do:anObject
     "evaluate the argument, aBlock for each element in the queue"
 
+    |val|
+
     accessLock critical:[
-        super do:anObject.
+        val := super do:anObject.
     ].
-    ^ anObject.
+    ^ val.
 !
 
 next
@@ -277,5 +279,5 @@
 !SharedQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.29 2004-11-25 09:42:48 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.30 2004-12-14 17:10:10 cg Exp $'
 ! !