--- a/Method.st	Thu Dec 13 14:36:56 2012 +0100
+++ b/Method.st	Thu Dec 13 14:37:05 2012 +0100
@@ -607,11 +607,13 @@
 !
 
 package
-    "return the package-ID of the method (nil is translated to noProject here)"
+    "return the package-symbol of the method (nil is translated to noProject here)"
 
     |cls|
 
     package notNil ifTrue:[ ^ package ].
+
+    "/ get it from my class
     (cls := self mclass) isNil ifTrue:[
         ^ PackageId noProjectID.
     ].
@@ -3740,11 +3742,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.403 2012-12-11 17:26:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.404 2012-12-13 13:37:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.403 2012-12-11 17:26:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.404 2012-12-13 13:37:05 cg Exp $'
 !
 
 version_SVN