--- a/MemoryMonitor.st	Mon Jan 13 14:25:23 2014 +0100
+++ b/MemoryMonitor.st	Mon Jan 13 14:25:52 2014 +0100
@@ -227,6 +227,10 @@
                   itemValue: collectGarbage
                 )
                (MenuItem
+                  label: 'Compress Only'
+                  itemValue: compressOldSpace
+                )
+               (MenuItem
                   label: 'Collect Garbage && Symbols'
                   itemValue: collectGarbageAndSymbols
                 )
@@ -283,6 +287,12 @@
      memoryView collectGarbageAndSymbols
 !
 
+compressOldSpace
+     memoryView compressOldSpace
+
+    "Modified: / 29-10-2012 / 01:34:24 / cg"
+!
+
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#MEMORYMONITOR'
 
@@ -310,10 +320,10 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.71 2013-06-13 15:29:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.72 2014-01-13 13:25:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.71 2013-06-13 15:29:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.72 2014-01-13 13:25:52 cg Exp $'
 ! !