Class >> heliosClass. Fixes #1025.

src/Kernel-Classes.js

@@ -1223,6 +1223,21 @@ referencedClasses: ["String"]
 }),
 globals.Class);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "heliosClass",
+protocol: 'accessing',
+fn: function (){
+var self=this;
+return "class";
+},
+args: [],
+source: "heliosClass\x0a\x09\x22Should be an Helios extension. Unfortunately, since helios can browse remote\x0a\x09environments, we can't extend base classes\x22\x0a\x09\x0a\x09^ 'class'",
+messageSends: [],
+referencedClasses: []
+}),
+globals.Class);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "isClass",

src/Kernel-Classes.st

@@ -383,6 +383,13 @@ definition
 			nextPutAll: '''' ]
 !
 
+heliosClass
+	"Should be an Helios extension. Unfortunately, since helios can browse remote
+	environments, we can't extend base classes"
+	
+	^ 'class'
+!
+
 package
 	^ self basicAt: 'pkg'
 !

src/Kernel-Objects.js

@@ -377,21 +377,6 @@ referencedClasses: []
 globals.ProtoObject);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "heliosClass",
-protocol: 'accessing',
-fn: function (){
-var self=this;
-return "class";
-},
-args: [],
-source: "heliosClass\x0a\x09\x22Should be an Helios extension. Unfortunately, since helios can browse remote\x0a\x09environments, we can't extend base classes\x22\x0a\x09\x0a\x09^ 'class'",
-messageSends: [],
-referencedClasses: []
-}),
-globals.ProtoObject.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "initialize",
@@ -1243,21 +1228,6 @@ referencedClasses: []
 }),
 globals.Object.klass);
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "heliosClass",
-protocol: 'helios',
-fn: function (){
-var self=this;
-return "class";
-},
-args: [],
-source: "heliosClass\x0a\x09\x22Should be an Helios extension. Unfortunately, since helios can browse remote\x0a\x09environments, we can't extend base classes\x22\x0a\x09\x0a\x09^ 'class'",
-messageSends: [],
-referencedClasses: []
-}),
-globals.Object.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "initialize",

src/Kernel-Objects.st

@@ -120,15 +120,6 @@ isKindOf: aClass
 		ifFalse: [ self class inheritsFrom: aClass ]
 ! !
 
-!ProtoObject class methodsFor: 'accessing'!
-
-heliosClass
-	"Should be an Helios extension. Unfortunately, since helios can browse remote
-	environments, we can't extend base classes"
-	
-	^ 'class'
-! !
-
 !ProtoObject class methodsFor: 'initialization'!
 
 initialize
@@ -421,13 +412,6 @@ accessorsSourceCodesWith: aGenerator
 	aGenerator accessorsForObject
 !
 
-heliosClass
-	"Should be an Helios extension. Unfortunately, since helios can browse remote
-	environments, we can't extend base classes"
-	
-	^ 'class'
-!
-
 initializeProtocolWith: aGenerator
 	aGenerator initializeProtocolForObject
 !