diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index 2c3c66b449..edf6759ae9 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -348,4 +348,7 @@ begin
   SysInitStdIO;
   { Reset IO Error }
   InOutRes:=0;
+{$ifdef FPC_HAS_FEATURE_THREADING}
+  InitSystemThreads;
+{$endif}
 end.