diff --git a/CHANGELOG.md b/CHANGELOG.md
index bac95bb0..8da9d8d7 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# v3.9.16-dev
+
+- editor, option _textCompletionMinLength_ min length off-by-one.
+
 # v3.9.15
 
 ## Bugs fixed
diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 6bf99e08..d6da536f 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -2919,7 +2919,7 @@ begin
       while not r.empty do
       begin
         w := r.popUntil(c)^.takeWhile(c).yield;
-        if (w.length > fTextCompletionMinLength) and not h.contains(w) then
+        if (w.length >= fTextCompletionMinLength) and not h.contains(w) then
         begin
           h.insert(w);
           fCompletion.ItemList.AddObject(w, TObject(PtrUint(dckText)));