Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -676,12 +676,12 @@
                   Print_Line (Original_Total, Output_Total, Base64_Total);
                end;
             end if;
 
          when Actions.Evaluate =>
-            Natools.Smaz.Tools.Set_Dictionary_For_Map_Search (Dictionary);
-            Dictionary.Hash := Natools.Smaz.Tools.Map_Search'Access;
+            Natools.Smaz.Tools.Set_Dictionary_For_Trie_Search (Dictionary);
+            Dictionary.Hash := Natools.Smaz.Tools.Trie_Search'Access;
 
             declare
                Total_Size : Ada.Streams.Stream_Element_Count;
                Counts : Natools.Smaz.Tools.Dictionary_Counts;
             begin