--- a/CVSSourceCodeManager.st	Thu Dec 22 10:00:29 2011 +0100
+++ b/CVSSourceCodeManager.st	Thu Dec 22 10:00:31 2011 +0100
@@ -470,8 +470,10 @@
 repositoryNameForPackage:packageId 
     "superclass AbstractSourceCodeManager class says that I am responsible to implement this method"
     
-    ^ self getCVSROOTForModule:(packageId upTo:$:)
-             "Created: / 10-10-2011 / 19:44:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^ self getCVSROOTForModule:(packageId upTo:$: )
+
+    "Created: / 10-10-2011 / 19:44:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 21-12-2011 / 23:03:29 / cg"
 !
 
 repositoryNamesPerModule
@@ -1395,11 +1397,13 @@
     (Smalltalk at:#SourceCodeManager) == self ifTrue:[
         aStream nextPutLine:'    Smalltalk at:#SourceCodeManager put: CVSSourceCodeManager.'.
         aStream nextPutLine:'    CVSSourceCodeManager initializeForRepository:' , self repositoryName storeString , '.'.
+    ] ifFalse:[
+        aStream nextPutLine:'    CVSSourceCodeManager repositoryName:' , self repositoryName storeString , '.'.
     ].
     aStream nextPutLine:'].'.
 
     "Created: / 09-11-2006 / 15:09:25 / cg"
-    "Modified: / 10-11-2006 / 18:14:16 / cg"
+    "Modified: / 22-12-2011 / 00:47:28 / cg"
 ! !
 
 !CVSSourceCodeManager class methodsFor:'source code access'!
@@ -2030,7 +2034,7 @@
                         ^ self checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName logMessage:logMsg force:force.
                     ].
                 ].
-                (Dialog confirm:('There seems to be no source container for "%1"\(Either the source container was removed, or your per-module repository setting is wrong. Proceed?)' bindWith:cls name allBold) withCRs)
+                (Dialog confirm:('There seems to be no source container for "%1"\(Either the source container was removed, or your per-module repository setting is wrong).\\Proceed?' bindWith:cls name allBold) withCRs)
                 ifFalse:[
                     tempdir recursiveRemove.
                     ^ false
@@ -2563,7 +2567,7 @@
 
     "Created: / 11-09-1996 / 16:16:11 / cg"
     "Modified: / 26-02-1998 / 17:34:16 / stefan"
-    "Modified: / 31-10-2011 / 11:19:44 / cg"
+    "Modified: / 22-12-2011 / 00:42:10 / cg"
 !
 
 checkoutModule:aModule directory:aPackage andDo:aBlock
@@ -5042,11 +5046,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.413 2011-12-21 18:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.414 2011-12-22 09:00:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.413 2011-12-21 18:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.414 2011-12-22 09:00:31 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!