From 3055de55dd7b39396a22ff47d449ab3d4e881b9f Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Wed, 27 Nov 2024 11:49:56 +0100
Subject: [PATCH] * Send correct message in case of unhandled message

---
 packages/wasi/src/rtl.webthreads.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);