--- a/MemoryMonitorView.st	Mon Jan 13 14:25:52 2014 +0100
+++ b/MemoryMonitorView.st	Mon Jan 13 14:25:59 2014 +0100
@@ -811,6 +811,16 @@
     "Modified: 30.7.1997 / 21:19:41 / cg"
 !
 
+compressOldSpace
+    "perform a blocking compress (only useful if freeList is not empty, after M&S)"
+
+    windowGroup withWaitCursorDo:[
+        ObjectMemory compressOldSpace.
+    ]
+
+    "Modified: 30.7.1997 / 21:19:35 / cg"
+!
+
 compressSources
     (self confirm:'This saves all in-memory source strings into a file
 and makes methods reference these (file-) strings,
@@ -1032,10 +1042,10 @@
 !MemoryMonitorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.19 2013-04-28 13:52:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.20 2014-01-13 13:25:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.19 2013-04-28 13:52:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.20 2014-01-13 13:25:59 cg Exp $'
 ! !