--- a/ProcessMonitor.st	Wed May 10 04:32:48 1995 +0200
+++ b/ProcessMonitor.st	Wed May 17 14:50:43 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.13 1995-05-09 01:59:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.14 1995-05-17 12:50:31 claus Exp $
 "
 !
 
@@ -195,8 +195,8 @@
 			line := line , (aProcess priority printStringLeftPaddedTo:3).
 			line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
 			line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
-			line := line , '(' , aProcess numberOfStackSegments printString , ')'.
 			(Smalltalk at:#SystemDebugging ifAbsent:[false]) ifTrue:[
+			    line := line , '(' , aProcess numberOfStackSegments printString , ')'.
 			    con := aProcess suspendedContext.
 			    con isNil ifTrue:[
 				aProcess == Processor activeProcess ifTrue:[
@@ -246,7 +246,6 @@
 updateView
     self updateList.
     self updateStatus
-
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!