--- a/ExternalFunctionCallback.st	Wed Jan 02 13:45:06 2013 +0100
+++ b/ExternalFunctionCallback.st	Wed Jan 02 13:47:41 2013 +0100
@@ -411,9 +411,9 @@
 	} else
 	    goto badArg;
     }
-    fprintf(stderr, "ExternalFunctionCallback: calling callBack %x(%x, %x)\n", f, c_args[0], c_args[1]);
+    fprintf(stderr, "ExternalFunctionCallback: calling callBack %lx(%lx, %lx)\n", (long)f, (long)(c_args[0]), (long)(c_args[1]));
     result = (*f)(c_args[0], c_args[1], c_args[2], c_args[3], c_args[4]);
-    fprintf(stderr, "ExternalFunctionCallback: result from callBack is %x\n", result);
+    fprintf(stderr, "ExternalFunctionCallback: result from callBack is %lx\n", (long)result);
     RETURN(true);
 
 badArg: ;
@@ -493,7 +493,7 @@
 
 code
     self hasCode ifFalse:[
-        self generateClosure
+	self generateClosure
     ].
     ^ super code
 
@@ -829,9 +829,9 @@
 !ExternalFunctionCallback class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.18 2011-12-12 19:30:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.19 2013-01-02 12:47:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.18 2011-12-12 19:30:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.19 2013-01-02 12:47:41 cg Exp $'
 ! !