diff -r 0724c3fc6f7d -r bbfde2a0eef1 ExecutableFunction.st
--- a/ExecutableFunction.st	Thu Nov 12 19:34:25 1998 +0100
+++ b/ExecutableFunction.st	Sat Nov 14 18:38:44 1998 +0100
@@ -232,6 +232,18 @@
     "Created: 16.4.1996 / 16:31:15 / cg"
 !
 
+hasCode
+    "return true, if this codeObject has code to execute."
+%{
+    if (__INST(code_)) {
+        RETURN (true);
+    }
+    RETURN (false);
+%}
+
+    "Created: / 13.11.1998 / 23:13:29 / cg"
+!
+
 isBreakpointed
     "return true, if this is a wrapper method for a breakpoint.
      False is returned here - this method is redefined in WrappedMethod"
@@ -245,9 +257,10 @@
     "return true, if this codeObject is executable."
 
     self isInvalid ifTrue:[^ false].
-    ^ self code notNil
+    ^ self hasCode
 
-    "Created: 16.4.1996 / 20:13:32 / cg"
+    "Created: / 16.4.1996 / 20:13:32 / cg"
+    "Modified: / 13.11.1998 / 23:16:32 / cg"
 !
 
 isInvalid
@@ -298,9 +311,10 @@
     "return true, if the objects machine code has been unloaded
      from the system (i.e. it is not executable)."
 
-    ^ self code isNil
+    ^ self hasCode not
 
-    "Created: 16.4.1996 / 20:15:52 / cg"
+    "Created: / 16.4.1996 / 20:15:52 / cg"
+    "Modified: / 13.11.1998 / 23:19:52 / cg"
 !
 
 isWrapped
@@ -350,6 +364,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.37 1998-11-11 14:39:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.38 1998-11-14 17:38:44 cg Exp $'
 ! !
 ExecutableFunction initialize!