Index: src/natools-smaz_tools.adb
==================================================================
--- src/natools-smaz_tools.adb
+++ src/natools-smaz_tools.adb
@@ -105,10 +105,18 @@
       end loop;
 
       return Result;
    end Build_Node;
 
+
+   function Dummy_Hash (Value : String) return Natural is
+      pragma Unreferenced (Value);
+   begin
+      raise Program_Error with "Dummy_Hash called";
+      return 0;
+   end Dummy_Hash;
+
 
    procedure Set_Map
      (Map : in out Dictionary_Maps.Map;
       List : in String_Lists.List)
    is

Index: src/natools-smaz_tools.ads
==================================================================
--- src/natools-smaz_tools.ads
+++ src/natools-smaz_tools.ads
@@ -59,10 +59,13 @@
    procedure Set_Dictionary_For_Trie_Search (List : in String_Lists.List);
    function Trie_Search (Value : String) return Natural;
       --  Function and data source for trie-based search that can be
       --  used with Dictionary.Hash.
 
+   function Dummy_Hash (Value : String) return Natural;
+      --  Placeholder for Hash dictionary member, always raises Program_Error
+
 
    type String_Count is range 0 .. 2 ** 31 - 1;
       --  Type for a number of substring occurrences
 
    package Methods is