diff --git a/rtl/unix/genfuncs.inc b/rtl/unix/genfuncs.inc
index 65458d4d4d..5021f559c3 100644
--- a/rtl/unix/genfuncs.inc
+++ b/rtl/unix/genfuncs.inc
@@ -23,7 +23,7 @@ var
   pp,p : ppchar;
 //  temp : string; !! Never pass a local var back!!
 begin
-  getmem(pp,4*4);
+  getmem(pp,4*sizeof(pointer));
   p:=pp;
   p^:=@Shell[1];
   inc(p);