diff --git a/packages/wasi/src/rtl.webthreads.pas b/packages/wasi/src/rtl.webthreads.pas index eb23001..e22ca7f 100644 --- a/packages/wasi/src/rtl.webthreads.pas +++ b/packages/wasi/src/rtl.webthreads.pas @@ -570,7 +570,7 @@ begin P:=TWorkerExceptionCommand.New; P.ExceptionClass:='ENotSupportedException'; P.ExceptionMessage:='Unsupported command : '+TJSJSON.Stringify(aCommand); - SendCommand(aCommand); + SendCommand(P); end; procedure TWasmThreadSupport.SendCommand(aCommand: TWorkerCommand);