diff --git a/source/helpers.pas b/source/helpers.pas
index b5eecbaf..77efed4a 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -684,7 +684,7 @@ end;
 }
 function sstr(str: WideString; len: Integer) : WideString;
 begin
-  if length(str) >= len then
+  if length(str) > len then
   begin
     str := copy(str, 0, len);
     str := str + '...';