diff --git a/utils/fprcp/comments.pp b/utils/fprcp/comments.pp
index 7663e15855..b878ab2d21 100644
--- a/utils/fprcp/comments.pp
+++ b/utils/fprcp/comments.pp
@@ -4,7 +4,7 @@ procedure ClearComments(nesting:longbool;__buf:pointer;size:longint);
 implementation
 procedure ClearComments(nesting:longbool;__buf:pointer;size:longint);
  type
-  tat=array[1..1]of char;
+  tat=array[1..2]of char;
   pat=^tat;
   pblock=^tblock;
   tblock=record