--- a/ProcessMonitor.st	Mon Sep 11 00:34:17 1995 +0200
+++ b/ProcessMonitor.st	Tue Sep 12 12:51:40 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.20 1995-08-10 18:38:17 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.21 1995-09-12 10:51:40 claus Exp $
 "
 !
 
@@ -198,11 +198,16 @@
 			line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
 			line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
 			showDetail ifTrue:[
-			    line := line , '(' , aProcess numberOfStackSegments printString , ')'.
-			    con := aProcess suspendedContext.
-			    con isNil ifTrue:[
-				aProcess == Processor activeProcess ifTrue:[
-				    con := thisContext
+			    n := aProcess numberOfStackSegments.
+			    line := line , '(' , n printString , ')'.
+			    n == 0 ifTrue:[
+				con := nil
+			    ] ifFalse:[
+				con := aProcess suspendedContext.
+				con isNil ifTrue:[
+				    aProcess == Processor activeProcess ifTrue:[
+					con := thisContext
+				    ]
 				]
 			    ].
 			    con notNil ifTrue:[
@@ -214,7 +219,7 @@
 				].
 				line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
 			    ] ifFalse:[
-				line := line , (String new:19)
+				line := line , (String new:20)
 			    ].
 			    line := line , ' '.
 			    line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).