--- a/AbstractSourceCodeManager.st	Wed Feb 02 12:03:00 2005 +0100
+++ b/AbstractSourceCodeManager.st	Wed Feb 09 12:05:57 2005 +0100
@@ -1222,7 +1222,7 @@
         "/ guessed moduleDir ?
         
         sourceInfo isNil ifTrue:[
-            components := Filename concreteClass components:packageDir.
+            components := Filename components:packageDir.
             moduleDir := components first.
             packageDir := (Filename fromComponents:(components copyFrom:2)) asString.
             s := self 
@@ -2107,7 +2107,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.167 2004-06-08 18:09:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.168 2005-02-09 11:05:57 stefan Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!