--- a/ExternalLibraryFunction.st	Fri May 05 11:41:08 2006 +0200
+++ b/ExternalLibraryFunction.st	Fri May 05 12:16:00 2006 +0200
@@ -422,11 +422,13 @@
         __argTypes[0] = __get_ffi_type_pointer();
 
         codeAddress = inst->vTable[__intVal(vtOffset)];
-
+printf("codeAddress: %x\n", codeAddress);
         __argValuePointers = &__argValuePointersIncludingThis[1];
         __argTypes = &__argTypesIncludingThis[1];
         __argValues = &__argValuesIncludingThis[1];
         __numArgsIncludingThis = __numArgs + 1;
+    failureCode = @symbol(InvalidInstance);
+    goto getOutOfHere;
     } else {
         __numArgsIncludingThis = __numArgs;
     }
@@ -706,5 +708,5 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.18 2006-05-05 09:40:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.19 2006-05-05 10:16:00 cg Exp $'
 ! !