Index: src/natools-smaz_generic-tools.adb
==================================================================
--- src/natools-smaz_generic-tools.adb
+++ src/natools-smaz_generic-tools.adb
@@ -307,13 +307,13 @@
    begin
       if Removed_Length = Dict.Max_Word_Length then
          New_Max_Word_Length := 1;
          for I in Dict.Offsets'Range loop
             if I /= Index
-              and then Dict_Entry (Dict, I)'Length > New_Max_Word_Length
+              and then Dict_Entry_Length (Dict, I) > New_Max_Word_Length
             then
-               New_Max_Word_Length := Dict_Entry (Dict, I)'Length;
+               New_Max_Word_Length := Dict_Entry_Length (Dict, I);
             end if;
          end loop;
       end if;
 
       return Dictionary'