--- a/Semaphore.st	Sat Dec 16 02:12:10 1995 +0100
+++ b/Semaphore.st	Sat Dec 16 02:16:25 1995 +0100
@@ -112,7 +112,7 @@
      Unregister our process from the Semaphore
     "
 
-    waitingProcesses remove:process.
+    waitingProcesses remove:process ifAbsent:[].
 
     "Created: 14.12.1995 / 10:31:50 / stefan"
 ! !
@@ -390,5 +390,5 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.26 1995-12-14 22:42:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.27 1995-12-16 01:16:25 stefan Exp $'
 ! !