--- a/ExternalFunctionCallback.st	Fri Dec 09 23:15:57 2011 +0000
+++ b/ExternalFunctionCallback.st	Wed Dec 21 22:04:49 2011 +0000
@@ -291,7 +291,7 @@
 "
 ! !
 
-!ExternalFunctionCallback class methodsFor:'common callbacks'!
+!ExternalFunctionCallback class methodsFor:'instance creation'!
 
 callbackFor:aBlock returnType:returnType argumentTypes:argumentTypes
     "generate a callback for the ErrorCallbackProc signature:
@@ -493,7 +493,7 @@
 
 code
     self hasCode ifFalse:[
-	self generate
+        self generateClosure
     ].
     ^ super code
 
@@ -829,14 +829,15 @@
 !ExternalFunctionCallback class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.16 2011/08/09 23:20:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.18 2011/12/12 19:30:09 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.16 2011/08/09 23:20:10 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.18 2011/12/12 19:30:09 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: ExternalFunctionCallback.st 10729 2011-10-31 22:19:21Z vranyj1 $'
+    ^ '$Id: ExternalFunctionCallback.st 10751 2011-12-21 22:04:49Z vranyj1 $'
 ! !
 
+