--- 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!