--- a/ExternalFunctionCallback.st	Fri Jun 22 16:01:16 2007 +0200
+++ b/ExternalFunctionCallback.st	Fri Jun 22 16:02:50 2007 +0200
@@ -445,6 +445,7 @@
     argTypeSymbols := argumentTypes.
     returnTypeSymbol := returnType.
     callBackIndex := self class closureIndexFor:self.
+    callTypeNumber := self callTypeNumber.
 %{
 #ifdef HAVE_FFI
     ffi_cif *pcif;
@@ -752,5 +753,5 @@
 !ExternalFunctionCallback class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.9 2007-06-22 14:01:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.10 2007-06-22 14:02:50 cg Exp $'
 ! !