--- a/packages/Package.st	Thu Apr 10 08:26:37 2003 +0200
+++ b/packages/Package.st	Thu Apr 10 08:45:44 2003 +0200
@@ -1207,7 +1207,7 @@
     ^ PackagedMethod new
             name:aMethodSelector; 
             ownedClassName: aClassName;
-            package:self. 
+            package:self name. 
 !
 
 newPackagedMethodSelector:aMethodSelector  className:aClassName source:aSourceString
@@ -1683,23 +1683,6 @@
     ^ self basicNew name:aMethodName  ownedClassName: aClassName package:aPackageName source:source 
 ! !
 
-!Package::PackagedMethod methodsFor:'* uncategorized *'!
-
-currentPackageOwner
-    | class method |
-    class := (Smalltalk classNamed:ownedClassName).
-    class ifNil:[
-        ^ nil.
-    ].
-    method := class compiledMethodAt:self name.
-
-    method ifNil:[
-        ^ nil
-    ].
-
-    ^ method package
-! !
-
 !Package::PackagedMethod methodsFor:'accessing'!
 
 category
@@ -1847,6 +1830,22 @@
 
 !Package::PackagedMethod methodsFor:'queries'!
 
+currentPackageOwner
+    "get the name of the owner of this package"
+    | class method |
+    class := (Smalltalk classNamed:ownedClassName).
+    class ifNil:[
+        ^ nil.
+    ].
+    method := class compiledMethodAt:self name.
+
+    method ifNil:[
+        ^ nil
+    ].
+
+    ^ method package
+!
+
 isInImage
     | myClass|
     (myClass := self ownedClass) ifNotNil:[
@@ -1925,5 +1924,5 @@
 !Package class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/packages/Package.st,v 1.1 2003-04-09 11:22:18 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/packages/Package.st,v 1.2 2003-04-10 06:45:44 james Exp $'
 ! !