--- a/ExecutableFunction.st	Wed Aug 20 23:21:44 1997 +0200
+++ b/ExecutableFunction.st	Thu Aug 21 17:41:38 1997 +0200
@@ -113,7 +113,7 @@
     unsigned INT addr;
 
     if (__INST(code_) != nil) {
-	addr = (int)__INST(code_);
+	addr = (unsigned INT)__INST(code_);
 	if (addr <= _MAX_INT) {
 	    RETURN ( __MKSMALLINT(addr) );
 	}
@@ -334,6 +334,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.33 1997-08-19 20:41:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.34 1997-08-21 15:41:37 cg Exp $'
 ! !
 ExecutableFunction initialize!