--- a/Tools__ObjectModuleInformation.st	Fri Jan 25 10:12:18 2008 +0100
+++ b/Tools__ObjectModuleInformation.st	Fri Jan 25 10:28:43 2008 +0100
@@ -954,21 +954,21 @@
     "Modified: / 05-10-2007 / 13:11:45 / cg"
 !
 
-unloadModule
-    self unloadModuleRemoveClasses:false
+unloadSelectedModule
+    self unloadSelectedModuleRemoveClasses:false
 !
 
-unloadModuleAndRemoveClasses
-    self unloadModuleRemoveClasses:true
+unloadSelectedModuleAndRemoveClasses
+    self unloadSelectedModuleRemoveClasses:true
 !
 
-unloadModuleRemoveClasses:doRemoveClasses
+unloadSelectedModuleRemoveClasses:doRemoveClasses
     self withWaitCursorDo:[
         |info idx handle pathName|
 
         info := self selectedModuleInfo.
+        handle := objectHandles at:(self selectedModuleIndex).
         self selectedModuleIndexHolder value:nil.
-        handle := objectHandles at:(self selectedModuleIndex).
 
         info isNil ifTrue:[
             "/ selected a method