--- a/ExternalFunction.st	Thu Nov 05 17:26:27 2009 +0100
+++ b/ExternalFunction.st	Thu Nov 05 17:26:28 2009 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 ExecutableFunction subclass:#ExternalFunction
@@ -371,16 +370,16 @@
     extern CUSTOMFUNCTION __stxCustomFunctions__[];
 #endif
 
-    if (__isString(functionName)) {
-	char *nm;
-	int i;
+    if (__isStringLike(functionName)) {
+        char *nm;
+        int i;
 
-	nm = (char *)__stringVal(functionName);
-	for (i=0; i < __stxNCustomFunctions__; i++) {
-	   if (strcmp(__stxCustomFunctions__[i].name, nm) == 0) {
-		RETURN (__mkSmallInteger(i));
-	   }
-	}
+        nm = (char *)__stringVal(functionName);
+        for (i=0; i < __stxNCustomFunctions__; i++) {
+           if (strcmp(__stxCustomFunctions__[i].name, nm) == 0) {
+                RETURN (__mkSmallInteger(i));
+           }
+        }
     }
 %}.
     ^ nil
@@ -973,7 +972,11 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.26 2006-06-22 16:14:33 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.27 2009-11-05 16:26:28 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.27 2009-11-05 16:26:28 stefan Exp $'
 ! !
 
 ExternalFunction initialize!