--- a/AbstractSourceCodeManager.st	Thu Aug 10 19:17:30 2006 +0200
+++ b/AbstractSourceCodeManager.st	Thu Aug 10 19:18:31 2006 +0200
@@ -611,6 +611,25 @@
     "Modified: / 25.9.1998 / 15:38:59 / cg"
 !
 
+directoryFromPackageID:packageID
+    "given a sourceInfo, return the classes module directory"
+
+    |dir|
+
+    dir := packageID copyFrom:(packageID indexOf:$:)+1.
+    "/ a backward compatibile kludge from times when the module was separated by two colons...
+    (dir startsWith:$:) ifTrue:[
+        dir := dir copyFrom:2.
+    ].
+    ^ dir.
+
+    "
+     self directoryFromPackageID:'stx:goodies' 
+    "
+
+    "Created: / 10-08-2006 / 18:24:39 / cg"
+!
+
 moduleFromContainerPath:containerPath forClass:aClass
     "given a full path as in an RCS header, extract the module."
 
@@ -642,6 +661,18 @@
     "Modified: / 11.8.1998 / 23:01:24 / cg"
 !
 
+moduleFromPackageID:packageID
+    "given a sourceInfo, return the classes module directory"
+
+    ^ packageID upTo:$:
+
+    "
+     self moduleFromPackageID:'stx:goodies'
+    "
+
+    "Created: / 10-08-2006 / 18:23:45 / cg"
+!
+
 moduleFromSourceInfo:info
     "given a sourceInfo, return the classes module directory"
 
@@ -2106,7 +2137,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.180 2006-08-10 10:20:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.181 2006-08-10 17:18:31 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!