--- a/Class.st	Fri Oct 20 12:16:15 2006 +0200
+++ b/Class.st	Fri Oct 20 13:26:34 2006 +0200
@@ -3987,13 +3987,15 @@
      in my package directory.
      Return nil, if no such directory exists."
 
-    ^ Smalltalk resourceDirectoryForPackage:self resourcePackage
+    ^ Smalltalk resourceDirectoryForPackage:(self package)
 
     "
      Object resourceDirectory
      View resourceDirectory
      ApplicationModel resourceDirectory
     "
+
+    "Modified: / 19-10-2006 / 23:08:37 / cg"
 !
 
 resourcePackName
@@ -4001,11 +4003,12 @@
      Notice, that this will undergo the same name translation process as
      done with class-source file names. (see ResourcePack).
      The default here is the classes name - this can be redefined in classes
-     which want use another classes resources (NewLauncher -> Launcher)."
+     which want to use another classes resources (NewLauncher -> Launcher)."
 
     ^ self name
 
-    "Created: / 29.1.1998 / 22:20:12 / cg"
+    "Created: / 29-01-1998 / 22:20:12 / cg"
+    "Modified: / 19-10-2006 / 23:11:57 / cg"
 !
 
 resourcePackage
@@ -4704,5 +4707,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.516 2006-10-12 19:33:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.517 2006-10-20 11:26:34 cg Exp $'
 ! !