--- a/Tools__ObjectModuleInformation.st	Sat Sep 06 13:16:08 2008 +0200
+++ b/Tools__ObjectModuleInformation.st	Sat Sep 06 13:27:09 2008 +0200
@@ -225,6 +225,14 @@
                   hideMenuOnActivated: false
                   indication: showOthers
                 )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Update'
+                  itemValue: menuUpdateModuleList
+                  translateLabel: true
+                )
                )
               nil
               nil
@@ -236,13 +244,13 @@
             submenu: 
            (Menu
               (
-              (MenuItem
-                 enabled: canBrowseSelectedModule
-                 label: 'Browse'
-                 itemValue: browseModule
-                 translateLabel: true
-               )
-               (MenuItem   
+               (MenuItem
+                  enabled: canBrowseSelectedModule
+                  label: 'Browse'
+                  itemValue: browseModule
+                  translateLabel: true
+                )
+               (MenuItem
                   enabled: canCopyClassNameList
                   label: 'Copy Version Info to Clipboard'
                   itemValue: copyClassOrVMNameList
@@ -254,15 +262,15 @@
                (MenuItem
                   enabled: canUnloadSelectedModule
                   label: 'Unload'
+                  itemValue: unloadSelectedModule
                   translateLabel: true
-                 itemValue: unloadSelectedModule
                 )
-                (MenuItem
-                   enabled: canUnloadSelectedModule
-                   label: 'Remove Classes && Unload'
-                   itemValue: unloadSelectedModuleAndRemoveClasses
-                   translateLabel: true
-                 )
+               (MenuItem
+                  enabled: canUnloadSelectedModule
+                  label: 'Remove Classes && Unload'
+                  itemValue: unloadSelectedModuleAndRemoveClasses
+                  translateLabel: true
+                )
                )
               nil
               nil
@@ -965,6 +973,12 @@
     self window setClipboardText:text.
 !
 
+menuUpdateModuleList
+    self updateModuleList
+
+    "Modified: / 05-10-2007 / 13:11:45 / cg"
+!
+
 openDocumentation
     self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO'