--- a/CVSSourceCodeManager.st	Thu Oct 12 12:21:39 2006 +0200
+++ b/CVSSourceCodeManager.st	Thu Oct 12 16:28:31 2006 +0200
@@ -12,11 +12,11 @@
 "{ Package: 'stx:libbasic3' }"
 
 AbstractSourceCodeManager subclass:#CVSSourceCodeManager
-	instanceVariableNames:''
-	classVariableNames:'Verbose CVSRoot RemoteCVS CVSModuleRoots CMD_checkout CVSTempDir
-		DisabledModules CVSCommandSemaphore CVSExecutable'
-	poolDictionaries:''
-	category:'System-SourceCodeManagement'
+        instanceVariableNames:''
+        classVariableNames:'Verbose CVSRoot RemoteCVS CVSModuleRoots CMD_checkout CVSTempDir
+                DisabledModules CVSCommandSemaphore CVSExecutable'
+        poolDictionaries:''
+        category:'System-SourceCodeManagement'
 !
 
 !CVSSourceCodeManager class methodsFor:'documentation'!
@@ -2491,6 +2491,8 @@
     ].
 
     classFileName := fileName.
+    classFileName isNil ifTrue:[classFileName := cls classBaseFilename].
+
     (classFileName endsWith:',v') ifTrue:[
         classFileName := classFileName copyWithoutLast:2.
     ].
@@ -2645,7 +2647,7 @@
 
     "Created: / 04-11-1995 / 19:46:20 / cg"
     "Modified: / 20-08-1997 / 16:37:11 / stefan"
-    "Modified: / 29-08-2006 / 15:44:16 / cg"
+    "Modified: / 12-10-2006 / 16:05:58 / cg"
 ! !
 
 !CVSSourceCodeManager class methodsFor:'source code administration'!
@@ -4475,7 +4477,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.336 2006-10-12 10:21:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.337 2006-10-12 14:28:31 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!