Tools__ObjectModuleInformation.st
changeset 2343 20eee34c4c8b
parent 2254 06ada9ab1a8a
child 2402 5db801ca0e35
--- a/Tools__ObjectModuleInformation.st	Wed May 21 19:30:50 2008 +0200
+++ b/Tools__ObjectModuleInformation.st	Wed May 21 21:28:56 2008 +0200
@@ -664,7 +664,7 @@
     module := self selectedModule.
 
     self canBrowseSelectedModule value:(info notNil and:[info ~~ #VM and:[module notNil]]).
-    self canUnloadSelectedModule value:(self readOnly not and:[info ~~ #VM and:[module notNil and:[module dynamic]]]).
+    self canUnloadSelectedModule value:(self readOnly not and:[info ~~ #VM and:[info notNil and:[info dynamic]]]).
 
     classNamesShown := nil.
     classInfoShown := nil.