--- a/SharedQueue.st	Fri Jul 16 11:39:41 1993 +0200
+++ b/SharedQueue.st	Mon Oct 04 11:32:27 1993 +0100
@@ -90,7 +90,7 @@
      the queue is full. After the put, signal availablity of a datum
      to readers."
 
-    |value ok|
+    |ok|
 
     ok := false.
     [ok] whileFalse:[
@@ -117,10 +117,8 @@
 
 !SharedQueue methodsFor:'queries'!
 
-isEmpty
-    ^ tally == 0
-!
+size
+    "return the number of elements in the shared queue"
 
-size
     ^ tally
 ! !