--- a/SVNSourceCodeManager.st	Mon Apr 12 16:13:00 2010 +0200
+++ b/SVNSourceCodeManager.st	Mon Apr 12 16:54:07 2010 +0200
@@ -22,8 +22,17 @@
 !SVNSourceCodeManager class methodsFor:'queries'!
 
 isExperimental
-    ^ OperatingSystem getLoginName ~= 'cg'.
+    ^ OperatingSystem getLoginName ~= 'cg'. 
     ^ true
+
+    "
+     self isExperimental
+    "
+!
+
+isResponsibleForPackage:packageId
+    ^ SVN::RepositoryManager notNil
+    and:[ SVN::RepositoryManager current hasRepositoryForPackage: packageId ]
 !
 
 managerTypeName
@@ -54,7 +63,7 @@
             repo workingCopy checkout.
             packageDir := Smalltalk packageDirectoryForPackageId:aPackageId.
             Smalltalk
-                loadPackageWithId:aPackageId
+                loadPackage:aPackageId
                 fromDirectory:packageDir
                 asAutoloaded:doLoadAsAutoloaded
         ] ifFalse:[false]