From 1fb0c2b43267d879a606ab6aa066235f61649e6a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 13 Aug 2015 15:09:20 +0200
Subject: [PATCH] fix, range violation introduced in
 f5e5167ebde45881cecf959aecbe42b5bcb33260

---
 src/ce_dcd.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index 1887992f..6211307e 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -364,7 +364,8 @@ begin
     updateServerlistening;
   for str in fTempLines do
   begin
-    if (length(str) < 9) and AnsiSameText(str[1..5], 'DITTO') then
+    i := length(str);
+    if (i > 4) and (i < 9) and AnsiSameText(str[1..5], 'DITTO') then
       continue;
     aComment += ReplaceStr(str, '\n', LineEnding);
   end;