--- a/Tools__ObjectModuleInformation.st Sat Feb 02 01:23:18 2013 +0100
+++ b/Tools__ObjectModuleInformation.st Tue Feb 19 00:10:33 2013 +0100
@@ -937,7 +937,7 @@
cls isNil ifTrue:[
(self isExtensionName:eachClassName) ifTrue:[
projectDefinitionClass notNil ifTrue:[
- mgr := projectDefinitionClass sourceCodeManager.
+ mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager.
versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
versionString notNil ifTrue:[
versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
@@ -1559,3 +1559,4 @@
version_CVS
^ '$Header$'
! !
+