--- a/ProcessMonitor.st	Thu Aug 27 13:23:19 1998 +0200
+++ b/ProcessMonitor.st	Thu Aug 27 13:39:44 1998 +0200
@@ -232,7 +232,11 @@
                             c := ' *'.
                             running := true.
                         ] ifFalse:[
-                            c := '  '.
+                            (Processor scheduledProcesses includes:aProcess) ifTrue:[
+                                c := ' +'
+                            ] ifFalse:[
+                                c := '  '.
+                            ].
                             running := false.
                         ].
                         line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
@@ -406,7 +410,7 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 5.8.1998 / 14:45:55 / cg"
+    "Modified: / 27.8.1998 / 09:23:23 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -700,5 +704,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.63 1998-08-05 12:47:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.64 1998-08-27 11:39:44 cg Exp $'
 ! !