--- a/AbstractSourceCodeManager.st	Wed Jun 21 13:01:38 2006 +0200
+++ b/AbstractSourceCodeManager.st	Wed Jun 21 13:15:59 2006 +0200
@@ -691,7 +691,7 @@
     "/ the following is heuristics, in case that the packageID is not known
     "/ (should not be required)
     "/
-    top := repositoryTopDirectoryFromCVSRoot.
+    top := self repositoryTopDirectoryFromCVSRoot.
     top notNil ifTrue:[
 
         (containerPath startsWith:(top , '/')) ifTrue:[
@@ -2113,7 +2113,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.177 2006-06-21 11:01:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.178 2006-06-21 11:15:59 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!