--- a/Method.st	Thu Mar 14 16:12:22 2019 +0100
+++ b/Method.st	Thu Mar 14 21:12:04 2019 +0100
@@ -1062,7 +1062,6 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
-
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -2424,6 +2423,27 @@
 
 !Method methodsFor:'private-compiler interface'!
 
+hasPrimitiveCode
+    "true if I have primitive code."
+
+%{  /* NOCONTEXT */
+
+#ifdef F_PRIMITIVE
+    INT f = __intVal(__INST(flags));
+    OBJ nr = 0;
+
+    if (f & F_PRIMITIVE) {
+        RETURN(true);
+    }
+    RETURN (false);
+#endif
+%}.
+    self primitiveFailed
+
+    "Modified: / 22-01-1997 / 00:03:45 / cg"
+    "Modified: / 14-03-2019 / 21:11:38 / Claus Gittinger"
+!
+
 primitiveNumber
     "for stx rel >= 5.x only:
      return the primitive number."
@@ -2627,7 +2647,7 @@
     "
 !
 
-hasPrimitiveCode
+hasPrimitiveCodeInSource
     "return true, if the method contains primitive code; false if not.
      Uses Parser to parse methods source and get the information."
 
@@ -2638,10 +2658,10 @@
 
     src := self source.
     src notNil ifTrue:[
-	(src includesString:(String with:$% with:${) "<- no constant here - to avoid trouble with stupid scanners" ) ifFalse:[
-	    "/ cannot contain primitive code.
-	    ^ false
-	]
+        (src includesString:(String with:$% with:${) "<- no constant here - to avoid trouble with stupid scanners" ) ifFalse:[
+            "/ cannot contain primitive code.
+            ^ false
+        ]
     ].
 
     "/ ok; it may or may not ...
@@ -2654,7 +2674,7 @@
      (Object compiledMethodAt:#basicAt:) hasPrimitiveCode
     "
 
-    "Modified: 22.1.1997 / 00:03:45 / cg"
+    "Created: / 14-03-2019 / 21:11:32 / Claus Gittinger"
 !
 
 hasResource
@@ -3807,7 +3827,6 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
-
 !Method methodsFor:'source management'!
 
 revisionInfo