From 52362b08723db014c2093bf33aa89697bbe0700a Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 2 Dec 2008 18:03:44 +0000
Subject: [PATCH] Fix bug #897 : Title of "table" tab gets "..." (ellipsis)
 appended although the whole name is visible

---
 source/helpers.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 + '...';