--- a/CVSSourceCodeManager.st	Sun Jan 15 02:46:15 2012 +0100
+++ b/CVSSourceCodeManager.st	Sun Jan 15 02:47:44 2012 +0100
@@ -250,7 +250,9 @@
     ].
 
 "/    Smalltalk at:#SourceCodeManager put:self.
-    DefaultManager := self.    
+    DefaultManager isNil ifTrue:[
+        DefaultManager := self.    
+    ].
 
     ('CVSSourceCodeManager [info]: repository CVSROOT is ''' , CVSRoot , '''.') infoPrintCR.
     RemoteCVS ifFalse:[
@@ -293,8 +295,7 @@
 
     "Created: / 04-11-1995 / 19:14:38 / cg"
     "Modified: / 19-12-1995 / 14:25:46 / stefan"
-    "Modified: / 21-09-2006 / 16:44:52 / cg"
-    "Modified (comment): / 17-08-2011 / 10:11:01 / cg"
+    "Modified: / 15-01-2012 / 00:24:23 / cg"
 !
 
 initializeForRepository:aDirectoryName
@@ -5081,11 +5082,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.420 2012-01-14 20:19:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.421 2012-01-15 01:47:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.420 2012-01-14 20:19:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.421 2012-01-15 01:47:44 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!