--- a/ExecutableFunction.st	Tue May 27 10:36:04 1997 +0200
+++ b/ExecutableFunction.st	Wed May 28 15:45:01 1997 +0200
@@ -201,7 +201,11 @@
     if (__isSmallInteger(anAddress))
 	__INST(code_) = (OBJ)(__intVal(anAddress));
     else {
-	__INST(code_) = (OBJ)(__longIntVal(anAddress));
+	if (anAddress == nil) {
+	    __INST(code_) = nil;
+	} else {
+	    __INST(code_) = (OBJ)(__longIntVal(anAddress));
+	}
     }
 %}
 ! !
@@ -330,6 +334,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.31 1997-04-11 15:31:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.32 1997-05-28 13:45:01 cg Exp $'
 ! !
 ExecutableFunction initialize!