--- a/ExternalLibraryFunction.st	Thu Nov 05 17:25:14 2009 +0100
+++ b/ExternalLibraryFunction.st	Thu Nov 05 17:25:16 2009 +0100
@@ -1079,7 +1079,7 @@
 
         } else if (typeSymbol == @symbol(charPointer)) {
             thisType = __get_ffi_type_pointer();
-            if (__isString(arg) || __isSymbol(arg)) {
+            if (__isStringLike(arg)) {
                 if (async == true) goto badArgForAsyncCall;
                 __argValues[i].pointerVal = (void *)(__stringVal(arg));
             } else if (__isBytes(arg)) {
@@ -1179,7 +1179,7 @@
             } else if (__isDoubleArray(arg)) {
                 if (async == true) goto badArgForAsyncCall;
                 __argValues[i].pointerVal = (void *)(__DoubleArrayInstPtr(arg)->d_element);
-            } else if (__isString(arg) || __isSymbol(arg)) {
+            } else if (__isStringLike(arg)) {
                 if (async == true) {
 badArgForAsyncCall: ;
                     __FAIL__(@symbol(BadArgForAsyncCall))
@@ -1398,11 +1398,11 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.70 2009-11-05 14:37:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.71 2009-11-05 16:25:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.70 2009-11-05 14:37:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.71 2009-11-05 16:25:16 stefan Exp $'
 ! !
 
 ExternalLibraryFunction initialize!