--- a/ExecutableFunction.st	Thu Jun 22 16:49:05 2006 +0200
+++ b/ExecutableFunction.st	Thu Jun 22 17:20:04 2006 +0200
@@ -200,6 +200,10 @@
         }
     }
 %}
+!
+
+invalidate
+    self code:0
 ! !
 
 !ExecutableFunction methodsFor:'queries'!
@@ -407,5 +411,5 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.53 2006-03-10 09:57:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.54 2006-06-22 15:20:04 ca Exp $'
 ! !