Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -1135,11 +1135,11 @@
    begin
       Natools.Smaz.Tools.Set_Dictionary_For_Trie_Search (Result);
       Result.Hash := Natools.Smaz.Tools.Trie_Search'Access;
 
       for I in Result.Offsets'Range loop
-         if Natools.Smaz_Tools.Trie_Search (Natools.Smaz.Dict_Entry
+         if Natools.Smaz.Tools.Trie_Search (Natools.Smaz.Dict_Entry
            (Result, I)) /= Natural (I)
          then
             Ada.Text_IO.Put_Line
               (Ada.Text_IO.Current_Error,
                "Fail at" & Ada.Streams.Stream_Element'Image (I)