--- a/ExternalFunction.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/ExternalFunction.st	Fri Jul 08 19:15:03 2005 +0200
@@ -377,7 +377,7 @@
 	nm = (char *)__stringVal(functionName);
 	for (i=0; i < __stxNCustomFunctions__; i++) {
 	   if (strcmp(__stxCustomFunctions__[i].name, nm) == 0) {
-		RETURN (__MKSMALLINT(i));
+		RETURN (__mkSmallInteger(i));
 	   }
 	}
     }
@@ -960,7 +960,7 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.22 2004-09-24 14:49:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.23 2005-07-08 17:15:01 cg Exp $'
 ! !
 
 ExternalFunction initialize!