--- a/SemaphoreSet.st	Sat Dec 16 02:16:25 1995 +0100
+++ b/SemaphoreSet.st	Sat Dec 16 02:23:39 1995 +0100
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:2.10.8 on 15-dec-1995 at 23:16:48'                   !
-
 IdentitySet subclass:#SemaphoreSet
 	instanceVariableNames:''
 	classVariableNames:''
@@ -128,6 +126,9 @@
 !
 
 waitWithTimeout:seconds
+    "wait for any of the the semaphore, but abort the wait after some time.
+     Return the first triggered semaphore if any, nil if we return due to a timeout."
+
     |currentProcess gotSema wasBlocked now endTime unblock timeoutOccured registeredAllSemas|
 
     currentProcess := Processor activeProcess.
@@ -178,12 +179,13 @@
     ^ gotSema
 
     "Modified: 15.12.1995 / 23:10:54 / stefan"
+    "Modified: 16.12.1995 / 02:22:53 / cg"
 ! !
 
 !SemaphoreSet class methodsFor:'documentation'!
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.2 1995-12-16 01:16:24 stefan Exp $
+$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.3 1995-12-16 01:23:30 cg Exp $
 "
 ! !