--- a/MemoryUsageView.st	Thu Feb 23 14:11:03 2017 +0100
+++ b/MemoryUsageView.st	Thu Feb 23 14:16:22 2017 +0100
@@ -84,12 +84,19 @@
 !
 
 autoUpdateLoop
-    [true] whileTrue:[
+    |delay interval|
+
+    [
         self autoUpdate.
-        Delay waitFor:self autoUpdateInterval
-    ].
+        interval ~= self autoUpdateInterval ifTrue:[
+            interval := self autoUpdateInterval.
+            delay := Delay forSeconds:interval.
+        ].
+        delay wait.
+    ] loop.
 
     "Created: / 05-05-2011 / 17:20:44 / cg"
+    "Modified: / 23-02-2017 / 14:14:24 / stefan"
 !
 
 openAutoUpdateIntervalDialog