| 
					
				 | 
			
			
				@@ -4638,15 +4638,15 @@ smalltalk.addMethod( 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.method({ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 selector: "subclass:instanceVariableNames:package:", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 category: 'class creation', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-fn: function (aString, aString2, aString3) { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var self = this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    var $1; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.ClassBuilder || ClassBuilder, "_new", []), "_superclass_subclass_instanceVariableNames_package_", [self, aString, aString2, aString3]); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    return $1; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+fn: function (aString,aString2,aString3){ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var self=this; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+var $1; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+$1=smalltalk.send(smalltalk.send((smalltalk.ClassBuilder || ClassBuilder),"_new",[]),"_superclass_subclass_instanceVariableNames_package_",[self,smalltalk.send(aString,"_asString",[]),aString2,aString3]); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+return $1; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 }, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 args: ["aString", "aString2", "aString3"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-source: "subclass: aString instanceVariableNames: aString2 package: aString3\x0a\x09^ClassBuilder new\x0a\x09    superclass: self subclass: aString instanceVariableNames: aString2 package: aString3", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-messageSends: ["superclass:subclass:instanceVariableNames:package:", "new"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+source: "subclass: aString instanceVariableNames: aString2 package: aString3\x0a\x09^ClassBuilder new\x0a\x09    superclass: self subclass: aString asString instanceVariableNames: aString2 package: aString3", 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+messageSends: ["superclass:subclass:instanceVariableNames:package:", "asString", "new"], 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 referencedClasses: ["ClassBuilder"] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 }), 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 smalltalk.UndefinedObject); 
			 |