--- a/ProcessMonitor.st	Sat Mar 20 16:45:22 2004 +0100
+++ b/ProcessMonitor.st	Sat Mar 20 20:28:43 2004 +0100
@@ -155,9 +155,9 @@
     |oldList list line dIndex interrupted contextCount 
      aProcess nm st n found running sel space oldSelection
      newSelection numHeaderLines nameLength index
-     con c totalStack sender id gId r skipping startTime endTime deltaT|
+     con c sender id gId r skipping startTime endTime deltaT|
 
-    startTime := AbsoluteTime now.
+    startTime := Timestamp now.
 
     numHeaderLines := 2.
     space := Character space.
@@ -430,7 +430,7 @@
         listView flush
     ].
 
-    endTime := AbsoluteTime now.
+    endTime := Timestamp now.
     deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
     "/ Transcript show:deltaT; show:' ' ; showCR:(updateDelay / 10.0).
     deltaT > (updateDelay / 5) ifTrue:[
@@ -776,5 +776,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.82 2003-10-23 15:42:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.83 2004-03-20 19:28:23 stefan Exp $'
 ! !