--- a/ProcessMonitor.st	Tue Jan 28 00:51:03 1997 +0100
+++ b/ProcessMonitor.st	Tue Jan 28 01:38:23 1997 +0100
@@ -142,7 +142,7 @@
 updateStatus
     "update status display of processes"
 
-    |oldList list line dIndex interrupted  
+    |oldList list line dIndex interrupted contextCount 
      aProcess nm st n found running sel space|
 
     space := Character space.
@@ -222,9 +222,12 @@
                                 line nextPutAll:'    '.
                                 line nextPutAll:(((ObjectMemory addressOf:con) printStringRadix:16) leftPaddedTo:8 with:$0).
                                 line nextPutAll:' .. '.
+
+                                contextCount := 1.
                                 c := con.
                                 [(sender := c sender) notNil] whileTrue:[
-                                    c := sender
+                                    c := sender.
+                                    contextCount := contextCount + 1.
                                 ].
                                 line nextPutAll:(((ObjectMemory addressOf:c) printStringRadix:16) leftPaddedTo:8 with:$0).
                             ] ifFalse:[
@@ -320,7 +323,7 @@
     ]
 
     "Modified: 3.7.1996 / 13:56:01 / stefan"
-    "Modified: 27.1.1997 / 23:36:38 / cg"
+    "Modified: 28.1.1997 / 01:37:56 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -600,4 +603,4 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.48 1997-01-27 22:38:44 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.49 1997-01-28 00:38:23 cg Exp $'! !