* fix for buggy ParamStr(0) / web bug #4666 as provided by Salvatore Licciardi (and in comp.lang.pascal.misc - maybe by Salvatore too?)

git-svn-id: trunk@2272 -

rtl/go32v2/system.pp

@@ -227,8 +227,8 @@ begin
 {$EndIf }
   { create argv[0] }
   argv0len:=strlen(dos_argv0);
-  allocarg(count,argv0len);
-  move(dos_argv0^,argv[count]^,argv0len);
+  allocarg(count,argv0len+1);
+  move(dos_argv0^,argv[count]^,argv0len+1);
   inc(count);
   { setup cmdline variable }
   cmdline:=Getmem(argv0len+length(doscmd)+2);