--- a/SharedQueue.st	Fri Dec 15 13:08:07 1995 +0100
+++ b/SharedQueue.st	Sat Dec 16 13:47:44 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Queue subclass:#SharedQueue
-	 instanceVariableNames:'accessProtect dataAvailable spaceAvailable'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Processes'
+	instanceVariableNames:'accessProtect dataAvailable spaceAvailable'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Processes'
 !
 
 !SharedQueue class methodsFor:'documentation'!
@@ -105,6 +105,24 @@
 	]
     ].
     ^ anObject
+!
+
+readSemaphore
+    "return the semaphore which is signalled when data is available
+     for reading."
+
+    ^ dataAvailable
+
+    "Modified: 16.12.1995 / 13:47:11 / cg"
+!
+
+writeSemaphore
+    "return the semaphore which is signalled when the queue has space
+     for writing."
+
+    ^ spaceAvailable
+
+    "Modified: 16.12.1995 / 13:47:07 / cg"
 ! !
 
 !SharedQueue methodsFor:'initialization'!
@@ -121,5 +139,5 @@
 !SharedQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.12 1995-12-07 21:30:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.13 1995-12-16 12:47:44 cg Exp $'
 ! !