From dbffba731eb040a70a3d5d973e3a4a8d6a59270b Mon Sep 17 00:00:00 2001
From: yuri <yuri>
Date: Wed, 19 Nov 2003 18:21:11 +0000
Subject: [PATCH] * Memory allocation bug fixed

---
 rtl/os2/system.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/os2/system.pas b/rtl/os2/system.pas
index f291ee40e5..9abe5dfc57 100644
--- a/rtl/os2/system.pas
+++ b/rtl/os2/system.pas
@@ -31,7 +31,7 @@ interface
   {$define SYSTEMEXCEPTIONDEBUG}
   {.$define IODEBUG}
   {.$define DEBUGENVIRONMENT}
-  {$define DEBUGARGUMENTS}
+  {.$define DEBUGARGUMENTS}
 {$endif SYSTEMDEBUG}
 
 { $DEFINE OS2EXCEPTIONS}
@@ -1174,6 +1174,7 @@ begin
   repeat
     Inc(Arglen);
   until (pc[Arglen]=#0);
+  Inc(Arglen);
   pc:=GetMem(ArgLen);
   move(cmdline^, pc^, arglen);
   Arglen:=0;
@@ -1418,7 +1419,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.58  2003-11-19 16:50:21  yuri
+  Revision 1.59  2003-11-19 18:21:11  yuri
+  * Memory allocation bug fixed
+
+  Revision 1.58  2003/11/19 16:50:21  yuri
   * Environment and arguments initialization now native
 
   Revision 1.57  2003/11/06 17:20:44  yuri