--- a/Tools__ObjectModuleInformation.st	Fri May 07 14:28:18 2010 +0200
+++ b/Tools__ObjectModuleInformation.st	Tue May 11 12:03:35 2010 +0200
@@ -1339,7 +1339,7 @@
 Continue ?') 
                 ifFalse:[ ^ self ].
     ].
-    handle := objectHandles at:self selectedModuleIndex ifAbsent:nil.
+    handle := module handle.
     handle notNil ifTrue:[
         self 
             withWaitCursorDo:[