--- a/NewLauncher.st	Fri Nov 23 09:11:21 2007 +0100
+++ b/NewLauncher.st	Fri Nov 23 18:05:02 2007 +0100
@@ -2405,7 +2405,18 @@
             label: 'Collect Garbage and Compress'
             itemValue: compressingGarbageCollect
             translateLabel: true
-            labelImage: (ResourceRetriever nil garbageCollectIcon 'Collect Garbage And Compress')
+            labelImage: (ResourceRetriever nil garbageCollectIcon 'Collect Garbage and Compress')
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: systemGarbageCollectAndCompress
+            label: 'Reload Resources'
+            itemValue: flushCachedResources
+            translateLabel: true
+            labelImage: (ResourceRetriever nil garbageCollectIcon 'Reload Resources')
+            showBusyCursorWhilePerforming: true
           )
          (MenuItem
             label: '-'
@@ -4350,5 +4361,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.356 2007-11-09 11:11:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.357 2007-11-23 17:05:02 stefan Exp $'
 ! !