--- a/Tools__ObjectModuleInformation.st	Wed Nov 26 13:08:15 2014 +0100
+++ b/Tools__ObjectModuleInformation.st	Thu Nov 27 21:12:25 2014 +0100
@@ -955,11 +955,15 @@
                     cls isNil ifTrue:[
                         (self isExtensionName:eachClassName) ifTrue:[
                             projectDefinitionClass notNil ifTrue:[
-                                mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager.
-                                versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
-                                versionString notNil ifTrue:[
-                                    versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
-                                ]
+                                mgr := projectDefinitionClass sourceCodeManager.
+                                mgr notNil ifTrue:[
+                                    versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
+                                    versionString notNil ifTrue:[
+                                        versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
+                                    ]
+                                ] ifFalse:[
+                                    versionString := '(SCM disabled)'.
+                                ].
                             ].
                         ] ifFalse:[
                             versionString := '(class removed)'.