Index: system.pp
===================================================================
--- system.pp	(revision 460)
+++ system.pp	(working copy)
@@ -177,7 +177,7 @@
     Inc(Arglen);
   until (pc[Arglen]=#0);
   allocarg(count,arglen);
-  move(pc^,argv[count]^,arglen);
+  move(pc^,argv[count]^,arglen+1);
   { Setup cmdline variable }
   cmdline:=GetCommandLine;
   { process arguments }
