Merged revisions 2272 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r2272 | hajny | 2006-01-13 00:17:51 +0100 (Fri, 13 Jan 2006) | 1 line

  * 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: branches/fixes_2_0@2452 -

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