--- a/ProcSched.st	Mon Oct 23 17:50:42 1995 +0100
+++ b/ProcSched.st	Mon Oct 23 17:55:03 1995 +0100
@@ -35,7 +35,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.47 1995-08-11 03:02:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.48 1995-10-23 16:54:25 cg Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.47 1995-08-11 03:02:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.48 1995-10-23 16:54:25 cg Exp $
 "
 !
 
@@ -1382,8 +1382,8 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    (readFdArray identityIndexOf:aFileDescriptor) == 0 ifTrue:[
-	idx := readFdArray identityIndexOf:nil.
+    (readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[
+	idx := readFdArray identityIndexOf:nil startingAt:1.
 	idx ~~ 0 ifTrue:[
 	    readFdArray at:idx put:aFileDescriptor.
 	    readSemaphoreArray at:idx put:aSemaphore.
@@ -1405,8 +1405,8 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    (writeFdArray identityIndexOf:aFileDescriptor) == 0 ifTrue:[
-	idx := writeFdArray identityIndexOf:nil.
+    (writeFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[
+	idx := writeFdArray identityIndexOf:nil startingAt:1.
 	idx ~~ 0 ifTrue:[
 	    writeFdArray at:idx put:aFileDescriptor.
 	    writeSemaphoreArray at:idx put:aSemaphore.
@@ -1444,11 +1444,11 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    index := timeoutSemaphoreArray identityIndexOf:aSemaphore.
+    index := timeoutSemaphoreArray identityIndexOf:aSemaphore startingAt:1.
     index ~~ 0 ifTrue:[
 	timeoutArray at:index put:aMillisecondTime
     ] ifFalse:[
-	index := timeoutArray indexOf:nil.
+	index := timeoutArray identityIndexOf:nil startingAt:1.
 	index ~~ 0 ifTrue:[
 	    timeoutSemaphoreArray at:index put:aSemaphore.
 	    timeoutArray at:index put:aMillisecondTime.
@@ -1473,23 +1473,26 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    idx := readSemaphoreArray identityIndexOf:aSemaphore.
-    idx ~~ 0 ifTrue:[
+    idx := readSemaphoreArray identityIndexOf:aSemaphore startingAt:1.
+    [idx ~~ 0] whileTrue:[
 	readFdArray at:idx put:nil.
 	readSemaphoreArray at:idx put:nil.
-	readCheckArray at:idx put:nil
+	readCheckArray at:idx put:nil.
+	idx := readSemaphoreArray identityIndexOf:aSemaphore startingAt:idx.
     ].
-    idx := writeSemaphoreArray identityIndexOf:aSemaphore.
-    idx ~~ 0 ifTrue:[
+    idx := writeSemaphoreArray identityIndexOf:aSemaphore startingAt:1.
+    [idx ~~ 0] whileTrue:[
 	writeFdArray at:idx put:nil.
 	writeSemaphoreArray at:idx put:nil.
+	idx := writeSemaphoreArray identityIndexOf:aSemaphore startingAt:idx.
     ].
-    idx := timeoutSemaphoreArray identityIndexOf:aSemaphore.
-    idx ~~ 0 ifTrue:[
+    idx := timeoutSemaphoreArray identityIndexOf:aSemaphore startingAt:1.
+    [idx ~~ 0] whileTrue:[
 	timeoutArray at:idx put:nil.
 	timeoutSemaphoreArray at:idx put:nil.
 	timeoutActionArray at:idx put:nil.
 	timeoutProcessArray at:idx put:nil.
+	idx := timeoutSemaphoreArray identityIndexOf:aSemaphore startingAt:idx.
     ].
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ! !
@@ -1541,7 +1544,7 @@
 
     wasBlocked := OperatingSystem blockInterrupts.
     (readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[
-	idx := readFdArray identityIndexOf:nil.
+	idx := readFdArray identityIndexOf:nil startingAt:1.
 	idx ~~ 0 ifTrue:[
 	    readFdArray at:idx put:aFileDescriptor.
 	    readCheckArray at:idx put:aBlock.
@@ -1563,7 +1566,7 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    idx := readFdArray identityIndexOf:aFileDescriptor.
+    idx := readFdArray identityIndexOf:aFileDescriptor startingAt:1.
     idx ~~ 0 ifTrue:[
 	readFdArray at:idx put:nil.
 	readCheckArray at:idx put:nil.
@@ -1665,7 +1668,7 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    index := timeoutActionArray identityIndexOf:aBlock.
+    index := timeoutActionArray identityIndexOf:aBlock startingAt:1.
     index ~~ 0 ifTrue:[
 	timeoutArray at:index put:aMillisecondTime
     ] ifFalse:[
@@ -1694,7 +1697,7 @@
      wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    index := timeoutActionArray identityIndexOf:aBlock.
+    index := timeoutActionArray identityIndexOf:aBlock startingAt:1.
     (index ~~ 0) ifTrue:[
 	timeoutArray at:index put:nil.
 	timeoutActionArray at:index put:nil.