--- a/ExecutableFunction.st	Tue Nov 21 13:12:14 2017 +0100
+++ b/ExecutableFunction.st	Tue Nov 21 13:13:25 2017 +0100
@@ -86,13 +86,6 @@
 
 !ExecutableFunction methodsFor:'accessing'!
 
-getCode
-    "return the code field. This is not an object but the address of the machine instructions.
-     Therefore an externalAddress representing the code-address is returned"
-
-    ^ self code
-!
-
 code
     "return the code field. This is not an object but the address of the machine instructions.
      Therefore an externalAddress representing the code-address is returned"
@@ -116,6 +109,13 @@
     ^ nil
 !
 
+getCode
+    "return the code field. This is not an object but the address of the machine instructions.
+     Therefore an externalAddress representing the code-address is returned"
+
+    ^ self code
+!
+
 instVarAt:index
     "have to catch instVar access to code - since its no object"
 
@@ -377,7 +377,7 @@
 !
 
 privacy
-    "return a symbol describing the methods access rights (privacy);
+    "return a symbol describing the method's access rights (privacy);
      Currently, this is one of #private, #protected, #public or #ignored.
 
      Here we unconditionally return #public, to allow alien code objects
@@ -385,7 +385,8 @@
 
     ^ #public
 
-    "Created: 16.4.1996 / 16:35:18 / cg"
+    "Created: / 16-04-1996 / 16:35:18 / cg"
+    "Modified (comment): / 21-11-2017 / 13:01:32 / cg"
 !
 
 referencesGlobal:aGlobalSymbol
@@ -515,3 +516,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+