problem in generated code: 'Invalid arg 6: Cannot coerce a SDWORD to SDWORD*'

Hi,

I've used the ActiveX Component Wizard to wrap up TAPI, but I'm having a
type coerce problem in the generated code.

It has generated this public method:-

registerCallNotifications: pAddress fMonitor: fMonitor fOwner: fOwner
lMediaTypes: lMediaTypes lCallbackInstance: lCallbackInstance
    "Answer the <SDWORD> result of invoking the COM Object's
RegisterCallNotifications() method.
    Helpstring: 'method RegisterCallNotifications'"
    | answer |
    answer := (SDWORD new).
    self
    RegisterCallNotifications: pAddress
    fMonitor: fMonitor
    fOwner: fOwner
    lMediaTypes: lMediaTypes
    lCallbackInstance: lCallbackInstance
    plRegister: answer.
    ^answer asObject

Which then calls this private method:-

RegisterCallNotifications: pAddress fMonitor: fMonitor fOwner: fOwner
lMediaTypes: lMediaTypes lCallbackInstance: lCallbackInstance plRegister:
plRegister
    "Private - Invoke the RegisterCallNotifications() method of the COM
object wrapped by the receiver.
    Helpstring: 'method RegisterCallNotifications'
    HRESULT __stdcall RegisterCallNotifications(
    [in] ITAddress* pAddress,
    [in] VARIANT_BOOL fMonitor,
    [in] VARIANT_BOOL fOwner,
    [in] long lMediaTypes,
    [in] long lCallbackInstance,
    [out, retval] long* plRegister);
    "
    <virtual stdcall: hresult 12 TAPI3LibITAddress* varbool varbool sdword
sdword sdword*>
    ^self invalidCall

All looks fine but evaulating the following in the workspace throws an
exception on the last line.

container := tapi queryInterface: IConnectionPointContainer.
point := container findConnectionPoint:
TAPI3LibITTAPIDispatchEventNotification.
handler := LoggingTAPIEventNotification new.
callback := point advise: (handler queryInterface: IUnknown).
reply := tapi registerCallNotifications: address fMonitor: true fOwner:
false lMediaTypes: 8 lCallbackInstance: callback.

12:19:14, 19/11/2001: 'Invalid arg 6: Cannot coerce a SDWORD to SDWORD*'
TAPI3LibITTAPI(ExternalStructure)>>invalidCall
TAPI3LibITTAPI>>RegisterCallNotifications:fMonitor:fOwner:lMediaTypes:lCallb
ackInstance:plRegister:
TAPI3LibITTAPI>>registerCallNotifications:fMonitor:fOwner:lMediaTypes:lCallb
ackInstance:
UndefinedObject>>{unbound}doIt
CompiledExpression>>value:
SmalltalkWorkspace>>evaluateRange:ifFail:debug:
SmalltalkWorkspace>>evaluateItIfFail:debug:
SmalltalkWorkspace>>evaluateItIfFail:
SmalltalkWorkspace>>inspectIt
Symbol>>forwardTo:
[] in Command>>value
BlockClosure>>ifCurtailed:
BlockClosure>>ensure:
Command>>value
SmalltalkWorkspaceDocument(Shell)>>performCommand:
CommandQuery>>perform
DelegatingCommandPolicy(CommandPolicy)>>route:
[] in ShellView(View)>>onCommand:
BlockClosure>>ifCurtailed:
BlockClosure>>ensure:
Cursor>>showWhile:
ShellView(View)>>onCommand:
ShellView(View)>>wmCommand:wParam:lParam:
ShellView(View)>>dispatchMessage:wParam:lParam:
[] in InputState>>wndProc:message:wParam:lParam:cookie:
BlockClosure>>ifCurtailed:
ProcessorScheduler>>callback:evaluate:
InputState>>wndProc:message:wParam:lParam:cookie:
ShellView>>translateAccelerator:
ShellView>>preTranslateKeyboardInput:
ShellView(View)>>preTranslateMessage:
InputState>>preTranslateMessage:
InputState>>pumpMessage:
InputState>>loopWhile:
InputState>>mainLoop
[] in InputState>>forkMain
ExceptionHandler(ExceptionHandlerAbstract)>>markAndTry
[] in ExceptionHandler(ExceptionHandlerAbstract)>>try:
BlockClosure>>ifCurtailed:
BlockClosure>>ensure:
ExceptionHandler(ExceptionHandlerAbstract)>>try:
BlockClosure>>on:do:
[] in BlockClosure>>newProcess