Adds Metaclass >> package

js/Kernel-Classes.js

@@ -1504,6 +1504,24 @@ referencedClasses: []
 }),
 globals.Metaclass);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "package",
+protocol: 'accessing',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(self._instanceClass())._package();
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"package",{},globals.Metaclass)})},
+args: [],
+source: "package\x0a\x09^ self instanceClass package",
+messageSends: ["package", "instanceClass"],
+referencedClasses: []
+}),
+globals.Metaclass);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "printOn:",

st/Kernel-Classes.st

@@ -483,6 +483,10 @@ instanceVariableNames: aCollection
 		class: self instanceVariableNames: aCollection
 !
 
+package
+	^ self instanceClass package
+!
+
 subclasses
 	^ (self instanceClass subclasses 
 		select: [ :each | each isMetaclass not ])