--- a/Class.st	Sat May 14 10:04:04 2011 +0200
+++ b/Class.st	Sat May 14 10:04:39 2011 +0200
@@ -1818,6 +1818,7 @@
     "Modified: 4.6.1997 / 14:48:02 / cg"
 ! !
 
+
 !Class methodsFor:'changes management'!
 
 addChangeRecordForChangeCategory
@@ -4226,8 +4227,7 @@
 
     (package := self package) notNil ifTrue:[
         "/ newest scheme ...
-        packageDir := package copyReplaceAll:$: with:$/.
-        packageDir := Smalltalk getPackageFileName:packageDir.
+        packageDir := Smalltalk findPackageDirectoryForPackage:package.
         packageDir notNil ifTrue:[
             "/ present there ?
             packageDir := packageDir asFilename.
@@ -5233,9 +5233,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.580 2011-04-19 11:47:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.581 2011-05-14 08:04:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.580 2011-04-19 11:47:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.581 2011-05-14 08:04:39 cg Exp $'
 ! !