--- gp.pas.orig	Wed May 19 19:55:40 2004
+++ gp.pas	Fri May 28 02:07:03 2004
@@ -775,7 +775,6 @@
                end;
         end
       end;
-    Buffer^[Count] := 0;
     Close (OutputFile);
     ppi^ := nil;
     Close (StdErrFile);
@@ -799,6 +798,7 @@
             Inc (j)
           end
       end;
+    Buffer^[j] := 0;
     BufCount := j
   end;