Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -676,10 +676,13 @@
                   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;
+
             declare
                Total_Size : Ada.Streams.Stream_Element_Count;
                Counts : Natools.Smaz.Tools.Dictionary_Counts;
             begin
                if Handler.Job_Count > 0 then