Index: tests/natools-smaz_tests.adb
==================================================================
--- tests/natools-smaz_tests.adb
+++ tests/natools-smaz_tests.adb
@@ -239,11 +239,11 @@
                elsif U in 'A' .. 'Z' and then V in 'a' .. 'z' then
                   return 2452 + Rank (U) * 26 + Rank (V);
                elsif U in 'A' .. 'Z' and then V in 'A' .. 'Z' then
                   return 3128 + Rank (U) * 26 + Rank (V);
                else
-                  return 4096;
+                  return 4095;
                end if;
             end;
 
          when 3 =>
             declare
@@ -255,15 +255,15 @@
                  and then V in '0' .. '9'
                  and then W in '0' .. '9'
                then
                   return 100 + Rank (U) * 100 + Rank (V) * 10 + Rank (W);
                else
-                  return 4096;
+                  return 4095;
                end if;
             end;
          when others =>
-            return 4096;
+            return 4095;
       end case;
    end Dictionary_4096_Hash;
 
 
    procedure Generic_Roundtrip_Test