--- a/ExternalFunctionCallback.st	Sun Sep 08 15:59:57 2019 +0200
+++ b/ExternalFunctionCallback.st	Sun Sep 08 16:01:05 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2007 by eXept Software AG
 	      All Rights Reserved
@@ -405,14 +407,14 @@
 
 callbackFor:aBlock returnType:returnType argumentTypes:argumentTypes
     "generate a callback for the ErrorCallbackProc signature:
-	ErrorCallbackProc(HWND hWnd, int nErrID, LPTSTR lpErrorText)
+        ErrorCallbackProc(HWND hWnd, int nErrID, LPTSTR lpErrorText)
      which, can be given to an external API call and which invokes the
      three arg block when clled.
      Do not forget to eventually release the callback to avoid a memory leak."
 
     |cb|
 
-    self assert:(aBlock numArgs == argumentTypes size).
+    self assert:(aBlock argumentCount == argumentTypes size).
 
     cb := ExternalFunctionCallback new.
     cb returnType:returnType argumentTypes:argumentTypes.
@@ -1005,3 +1007,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+