From 42ce5a3edd10f2198d21e98441e89164974569e6 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 6 Feb 2006 07:16:34 +0000
Subject: [PATCH] Merged revisions 2272 via svnmerge from
 http://peter@svn.freepascal.org/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 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index 9a2c3740c4..c3bfd5d1bb 100644
--- a/rtl/go32v2/system.pp
+++ b/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);