--- a/ExecutableFunction.st	Wed Aug 23 16:06:04 2006 +0200
+++ b/ExecutableFunction.st	Wed Aug 23 16:06:09 2006 +0200
@@ -117,14 +117,6 @@
     ^ super instVarAt:index put:value
 ! !
 
-!ExecutableFunction methodsFor:'binary storage'!
-
-readBinaryContentsFrom: stream manager: manager
-    "make certain, that no invalid function addresses are created."
-
-    super readBinaryContentsFrom: stream manager: manager.
-    self code:nil.
-! !
 
 !ExecutableFunction methodsFor:'error handling'!
 
@@ -411,5 +403,5 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.54 2006-06-22 15:20:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.55 2006-08-23 14:06:09 cg Exp $'
 ! !