--- a/MemoryMonitorView.st	Thu Dec 20 12:42:37 2001 +0100
+++ b/MemoryMonitorView.st	Thu Dec 20 15:01:58 2001 +0100
@@ -688,10 +688,13 @@
     ] ifFalse:[
         myProcess := [
             self updateProcess
-        ] forkAt:6.
+        ] newProcess.
+        myProcess priorityRange:(6 to:8).
         myProcess name:'monitor [' , 
                        Processor activeProcess id printString ,
-                       '] update'
+                       '] update'.
+        myProcess restartable:true.
+        myProcess resume.
     ].
 
     newColor := newColor on:device.
@@ -955,5 +958,5 @@
 !MemoryMonitorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.5 2001-09-18 08:27:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.6 2001-12-20 14:01:58 cg Exp $'
 ! !