--- a/Semaphore.st	Thu Jun 18 16:05:15 1998 +0200
+++ b/Semaphore.st	Thu Jun 18 16:08:01 1998 +0200
@@ -264,6 +264,15 @@
     "Created: 23.1.1997 / 02:55:58 / cg"
 !
 
+isEmpty
+    "ST80 compatibility - return true if there are no waiters"
+
+    ^ waitingProcesses isEmpty
+
+    "Created: / 3.5.1996 / 18:06:27 / cg"
+    "Modified: / 18.6.1998 / 16:07:38 / cg"
+!
+
 lastOwnerId
     "return the processId of the last owning process
      (the one which counted to zero).
@@ -643,5 +652,5 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.50 1998-06-17 14:23:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.51 1998-06-18 14:08:01 cg Exp $'
 ! !