Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -330,10 +330,11 @@
             declare
                Counter : Natools.Smaz.Tools.Word_Counter;
             begin
                for S of Input loop
                   Natools.Smaz.Tools.Add_Substrings (Counter, S, 1, 3);
+                  Natools.Smaz.Tools.Add_Words (Counter, S, 4, 10);
                end loop;
 
                return Natools.Smaz.Tools.To_Dictionary
                  (Natools.Smaz.Tools.Simple_Dictionary (Counter, 254),
                   True);