--- a/MemoryMonitor.st	Sat Sep 14 14:18:17 1996 +0200
+++ b/MemoryMonitor.st	Tue Sep 17 11:41:27 1996 +0200
@@ -302,8 +302,9 @@
         tot:    total memory used (overall oldSpace + overall newSpace)
         all:    current memory in use (oldSpace + newSpace)
         new:    current newSpace in use
-        free:   current size of freelist in oldSpace
+        fre:    current size of freelist in oldSpace
         old:    current oldSpace in use
+        code:   current just-in-time compiled code cache size
         t:      current tenure age
         I:      IGC state
         weak:   number of weak arrays in the system
@@ -393,9 +394,9 @@
         self paint:oldColor.
         n := ObjectMemory compiledCodeSpaceUsed.
         n > 9999 ifTrue:[
-            s := 'cod ' , ((n // 1024) printStringLeftPaddedTo:5) , 'k'.
+            s := 'code ' , ((n // 1024) printStringLeftPaddedTo:4) , 'k'.
         ] ifFalse:[
-            s := 'cod ' , (n printStringLeftPaddedTo:5) , ' '.
+            s := 'code ' , (n printStringLeftPaddedTo:4) , ' '.
         ].
         self displayOpaqueString:s x:0 y:y.
     ].
@@ -771,5 +772,5 @@
 !MemoryMonitor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.36 1996-08-24 10:07:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.37 1996-09-17 09:41:27 cg Exp $'
 ! !