diff --git a/rtl/inc/threadh.inc b/rtl/inc/threadh.inc
index 70c1a0a37d..9db2fe1d02 100644
--- a/rtl/inc/threadh.inc
+++ b/rtl/inc/threadh.inc
@@ -15,8 +15,8 @@
  **********************************************************************}
 
 const
-  { including 16384 margin for stackchecking }
-  DefaultStackSize = 32768;
+  { includes 16384 bytes margin for stackchecking }
+  DefaultStackSize = 4*1024*1024;
 
 type
   PEventState = pointer;