diff --git a/source/helpers.pas b/source/helpers.pas
index 6b507095..e8985979 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -686,7 +686,7 @@ function sstr(str: WideString; len: Integer) : WideString;
 begin
   if length(str) > len then
   begin
-    str := copy(str, 0, len);
+    str := copy(str, 0, len-1);
     str := str + '…';
   end;
   result := str;