--- 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.