--- a/MemoryMonitorView.st	Wed Feb 20 10:51:14 2013 +0100
+++ b/MemoryMonitorView.st	Wed Feb 20 10:53:50 2013 +0100
@@ -14,9 +14,9 @@
 View subclass:#MemoryMonitorView
 	instanceVariableNames:'updateInterval updateBlock myProcess oldData newData freeData
 		updateIndex org maxTotal minTotal dX newColor freeColor oldColor
-		prevTotal prevFree prevFree2 prevOld scale drawLock prevMemUsed
-		prevCodeUsed prevNumWeak prevNumRem prevNumLifoRem prevTenureAge
-		prevIGCPhase prevLastScavengeReclamation
+		prevTotal prevLimit prevFree prevFree2 prevOld scale drawLock
+		prevMemUsed prevCodeUsed prevNumWeak prevNumRem prevNumLifoRem
+		prevTenureAge prevIGCPhase prevLastScavengeReclamation
 		prevMinScavengeReclamation prevScavengeCount mallocColor'
 	classVariableNames:''
 	poolDictionaries:''
@@ -181,7 +181,7 @@
     x < org ifTrue:[
         "/ force redraw.
 
-        prevFree := prevFree2 := prevOld := prevTotal := nil.
+        prevFree := prevFree2 := prevOld := prevTotal := prevLimit := nil.
         prevMemUsed := prevCodeUsed := prevNumWeak := prevNumRem := nil.
         prevNumLifoRem := prevTenureAge := prevIGCPhase := nil.
         prevLastScavengeReclamation := prevMinScavengeReclamation := nil.
@@ -362,6 +362,10 @@
 
     y := half - (fontHeight * 8).
 
+    limit ~~ prevLimit ifTrue:[
+        self displayKilo:limit    name:'lim ' y:fontAscent.
+        prevLimit := limit.
+    ].
     total ~~ prevTotal ifTrue:[
         ((total - freeMem) < minTotal) ifTrue:[
             minTotal := total - freeMem.
@@ -370,7 +374,6 @@
             maxTotal := total.
         ].
 
-        self displayKilo:limit    name:'lim ' y:fontAscent.
         self displayKilo:maxTotal name:'max ' y:fontAscent + fontHeight.
         self displayKilo:minTotal name:'min ' y:(height - fontDescent).
         self displayKilo:total    name:'tot ' y:y.
@@ -1028,10 +1031,10 @@
 !MemoryMonitorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.17 2013-02-20 09:51:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.18 2013-02-20 09:53:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.17 2013-02-20 09:51:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.18 2013-02-20 09:53:50 cg Exp $'
 ! !