--- a/ExternalFunction.st	Thu Nov 05 14:41:30 2009 +0000
+++ b/ExternalFunction.st	Wed Dec 02 21:30:55 2009 +0000
@@ -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,12 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ExternalFunction.st 10447 2009-06-14 13:09:55Z vranyj1 $'
+    ^ '$Id: ExternalFunction.st 10480 2009-12-02 21:30:55Z vranyj1 $'
+!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.27 2009/11/05 16:26:28 stefan Exp §'
 ! !
 
 ExternalFunction initialize!
+