--- a/ProcessMonitor.st	Tue Sep 08 13:23:22 1998 +0200
+++ b/ProcessMonitor.st	Tue Sep 08 13:24:20 1998 +0200
@@ -232,11 +232,13 @@
                             c := ' *'.
                             running := true.
                         ] ifFalse:[
-                            (Processor scheduledProcesses includes:aProcess) ifTrue:[
-                                c := ' +'
-                            ] ifFalse:[
-                                c := '  '.
-                            ].
+                            [
+                                (Processor scheduledProcesses includes:aProcess) ifTrue:[
+                                    c := ' +'
+                                ] ifFalse:[
+                                    c := '  '.
+                                ].
+                            ] valueUninterruptably.
                             running := false.
                         ].
                         line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
@@ -410,7 +412,7 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 27.8.1998 / 09:23:23 / cg"
+    "Modified: / 7.9.1998 / 20:06:30 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -704,5 +706,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.64 1998-08-27 11:39:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.65 1998-09-08 11:24:20 cg Exp $'
 ! !