Method.st
changeset 8314 fc73718968f5
parent 8272 22125e256f31
child 8364 249029878100
--- a/Method.st	Wed Apr 14 11:07:50 2004 +0200
+++ b/Method.st	Thu Apr 15 10:45:50 2004 +0200
@@ -204,20 +204,18 @@
 
     "type-byte"
     stream nextByte == 0 ifTrue:[
-	"
-	 built-in method
-	"
-	cls := manager nextObject.
-	sel := manager nextObject.
-
-	"
-	 mhmh - on the source system, this was a machinecode
-	 method, while here its an interpreted one ...
-	"
-	cls isLoaded ifFalse:[
-	    cls autoload
-	].
-	^ cls compiledMethodAt:sel
+        "
+         built-in method
+        "
+        cls := manager nextObject.
+        sel := manager nextObject.
+
+        "
+         mhmh - on the source system, this was a machinecode
+         method, while here its an interpreted one ...
+        "
+        cls := cls autoload.
+        ^ cls compiledMethodAt:sel
     ].
     "
      bytecode method
@@ -2917,7 +2915,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.272 2004-03-29 16:31:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.273 2004-04-15 08:45:17 stefan Exp $'
 ! !
 
 Method initialize!