--- a/AbstractSourceCodeManager.st	Tue Oct 11 13:04:22 2011 +0200
+++ b/AbstractSourceCodeManager.st	Tue Oct 11 13:49:56 2011 +0200
@@ -283,6 +283,16 @@
     "Created: 14.9.1996 / 13:21:37 / cg"
 !
 
+repositoryStringForPackage: packageId
+
+    "Return the repository ULR fo given package. Used for 
+     testing/debugging source code management configuration"
+
+    ^self subclassResponsibility
+
+    "Created: / 10-10-2011 / 19:44:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 useWorkTree
     "return the setting of useWorkTree, which (eventually)
      controls if an up-to-date view of a CVS working tree should be
@@ -1430,9 +1440,15 @@
 
 isResponsibleForPackage:aStringOrSymbol
 
+    "Returns true if the manager can handle source code for given package.
+
+     Answering true does not imply that receiver is configured default
+     manager for that package, it only means that it has a repository
+     configured for given package."
+
     self subclassResponsibility
 
-    "Modified (format): / 09-07-2011 / 14:35:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 11-10-2011 / 11:58:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isVersionMethodSelector: selector 
@@ -2079,7 +2095,7 @@
 
     doubleColon := source indexOf: $: startingAt: startQuote + 2.
     "/There may be no double colon at all, if the version method
-    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.265 2011-10-10 15:56:09 vrany Exp $'
+    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.266 2011-10-11 11:49:56 vrany Exp $'
     (doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
         doubleColon := endQuote - 1.
     ].
@@ -3275,11 +3291,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.265 2011-10-10 15:56:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.266 2011-10-11 11:49:56 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.265 2011-10-10 15:56:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.266 2011-10-11 11:49:56 vrany Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!