--- a/SourceCodeManagerUtilities.st	Sat Aug 19 20:32:38 2000 +0200
+++ b/SourceCodeManagerUtilities.st	Mon Aug 21 14:53:43 2000 +0200
@@ -313,6 +313,15 @@
         ^ false.
     ].
 
+    mgr := (aClass sourceCodeManager).
+    mgr isNil ifTrue:[
+        self halt:'oops'.
+        (self confirm:'Class does not seem to privide a valid sourceCodeManager.\\Assume CVS ?' withCRs) ifFalse:[
+            ^ false
+        ].
+        mgr := CVSSourceCodeManager.
+    ].
+
     aLogMessageOrNil isNil ifTrue:[
         logMessage := SourceCodeManagerUtilities getLogMessageFor:aClass name asText allBold.
         logMessage isNil ifTrue:[^ self].
@@ -322,7 +331,6 @@
 
     resources := ResourcePack for:self.
 
-    mgr := (aClass sourceCodeManager).
     info := mgr sourceInfoOfClass:aClass.
 
     (info isNil 
@@ -913,5 +921,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.16 2000-08-19 18:27:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.17 2000-08-21 12:53:43 cg Exp $'
 ! !