--- a/CVSSourceCodeManager.st	Tue Oct 11 13:50:27 2011 +0200
+++ b/CVSSourceCodeManager.st	Tue Oct 11 13:51:02 2011 +0200
@@ -396,6 +396,14 @@
     ^ CVSModuleRoots values copyWith:CVSRoot 
 !
 
+repositoryForPackage:packageId
+    "superclass AbstractSourceCodeManager class says that I am responsible to implement this method"
+
+    ^self getCVSROOTForModule: ( packageId upTo:$:)
+
+    "Modified: / 10-10-2011 / 19:38:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 repositoryInfoPerModule
     "return the dictionary, which associates CVSRoots to module names.
      If no entry is contained in this dictionary for some module,
@@ -479,6 +487,22 @@
 
     self obsoleteMethodWarning:'use repositoryInfoPerModule:'.
     CVSModuleRoots := aDictionary
+!
+
+repositoryStringForPackage: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>"
+! !
+
+!CVSSourceCodeManager class methodsFor:'basic administration'!
+
+createContainerFor:aClass inModule:moduleName directory:dirName container:fileName
+    "create a new container & check into it an initial version of aClass"
+
+    ^ self shouldImplement
 ! !
 
 !CVSSourceCodeManager class methodsFor:'debugging'!
@@ -1023,6 +1047,7 @@
     ok ifFalse:[
         ('CVSSourceCodeManager [info]: command failed: ' , command) errorPrintCR.
         self breakPoint:#cg.
+        self breakPoint:#jv.
         SourceCodeManagerError isHandled ifTrue:[
             SourceCodeManagerError 
                 raiseRequestErrorString:(errorString ? 'CVS Error').
@@ -1033,6 +1058,7 @@
     "Modified: / 23-04-1996 / 15:24:00 / stefan"
     "Created: / 20-05-1998 / 16:06:34 / cg"
     "Modified: / 04-09-2011 / 10:30:28 / cg"
+    "Modified: / 10-10-2011 / 14:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 getCVSROOTForModule:aModuleName
@@ -5009,11 +5035,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.405 2011-09-29 20:01:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.406 2011-10-11 11:51:02 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.405 2011-09-29 20:01:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.406 2011-10-11 11:51:02 vrany Exp $'
 ! !
 
 CVSSourceCodeManager initialize!