--- a/ProcessMonitor.st	Tue Feb 27 17:55:02 1996 +0100
+++ b/ProcessMonitor.st	Wed Feb 28 15:43:10 1996 +0100
@@ -245,7 +245,7 @@
                                 1 to:10 do:[:n |
                                     found ifFalse:[
                                         c notNil ifTrue:[
-                                            (c receiver isMemberOf:Semaphore) ifTrue:[
+                                            (c receiver class == Semaphore) ifTrue:[
                                                 c selector == #wait ifTrue:[
                                                     found := true.
                                                 ]
@@ -620,4 +620,4 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.29 1995-12-23 17:42:32 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.30 1996-02-28 14:43:10 cg Exp $'! !