--- a/Method.st	Mon Mar 18 15:41:01 1996 +0100
+++ b/Method.st	Mon Mar 18 15:42:32 1996 +0100
@@ -1693,6 +1693,16 @@
 
 !
 
+isExecutable
+    "return true, if this method is executable.
+     I.e. neither an invalidated nor an unloaded method"
+
+    self isInvalid ifTrue:[^ false].
+    ^ byteCode notNil or:[self code notNil]
+
+    "Created: 18.3.1996 / 15:38:52 / cg"
+!
+
 isInvalid
     "return true, if this method is not executable due to
      a (re)-compilation error. (see comment in Method>>invalidCodeObject)"
@@ -2072,6 +2082,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.78 1996-03-08 12:36:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.79 1996-03-18 14:42:32 cg Exp $'
 ! !
 Method initialize!