--- a/Launcher.st	Fri May 10 15:58:14 1996 +0200
+++ b/Launcher.st	Sun May 12 15:31:28 1996 +0200
@@ -1491,6 +1491,12 @@
 
 !NewLauncher methodsFor:'actions - tools'!
 
+compressingGarbageCollect
+    ObjectMemory verboseGarbageCollect
+
+    "Created: 12.5.1996 / 15:30:15 / cg"
+!
+
 fullScreenHardcopy
     "after a second (to allow redraw of views under menu ...),
      save the contents of the whole screen."
@@ -1500,6 +1506,18 @@
     ] afterSeconds:1
 !
 
+garbageCollect
+    ObjectMemory reclaimSymbols
+
+    "Created: 12.5.1996 / 15:28:03 / cg"
+!
+
+globalGarbageCollect
+    ObjectMemory reclaimSymbols
+
+    "Created: 12.5.1996 / 15:28:13 / cg"
+!
+
 removeAllBreakAndTracePoints
     MessageTracer cleanup
 !
@@ -2312,10 +2330,16 @@
     m subMenuAt:#misc 
       put:(PopUpMenu
                 labels:(resources array:#(
+                                           'garbage collect'
+                                           'garbage collect & compress'
+                                           '-'
                                            'remove all break/trace points'
                                          ))
                 selectors:#(
-                                        #removeAllBreakAndTracePoints 
+                                        #garbageCollect
+                                        #compressingGarbageCollect
+                                        nil
+                                        #removeAllBreakAndTracePoints                                        
                            )
                 receiver:self).
 
@@ -2333,7 +2357,7 @@
                            )
                 receiver:self).
 
-    "Modified: 7.3.1996 / 15:01:26 / cg"
+    "Modified: 12.5.1996 / 15:29:46 / cg"
 !
 
 setupTranscriptIn:aView 
@@ -2567,5 +2591,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.121 1996-05-10 13:58:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.122 1996-05-12 13:31:28 cg Exp $'
 ! !