--- a/ExternalLibraryFunction.st	Sat Apr 13 17:59:14 2019 +0200
+++ b/ExternalLibraryFunction.st	Sat Apr 13 18:03:27 2019 +0200
@@ -630,14 +630,15 @@
     "/ care for 64bit machines
     aType == #SIZE_T          ifTrue:[^ ExternalBytes sizeofPointer == 8 ifTrue:[#uint64] ifFalse:[#uint32]].
 
-    aType isArray ifTrue:[
-	^ aType collect:[:each | self ffiTypeSymbolForType:each]
-    ].
-
     (aType isString or:[aType isSymbol]) ifFalse:[
+	aType isArray ifTrue:[
+	    ^ aType collect:[:each | self ffiTypeSymbolForType:each]
+	].
+
 	CType isNil ifTrue:[
 	    self error:'unknown type'.
 	].
+	"/ assume it is a ctype
 	^ aType typeSymbol.
     ].