Index: src/natools-smaz.adb
==================================================================
--- src/natools-smaz.adb
+++ src/natools-smaz.adb
@@ -213,11 +213,11 @@
 
             Verbatim_Length := Input_Index - Beginning;
 
             if Previous_Verbatim_Beginning > 0
               and then Output_Last + Verbatim_Size (Dict, Verbatim_Length)
-                 > Previous_Verbatim_Last + Verbatim_Size
+                 >= Previous_Verbatim_Last + Verbatim_Size
                     (Dict, Input_Index - Previous_Verbatim_Beginning)
             then
                Beginning := Previous_Verbatim_Beginning;
                Output_Last := Previous_Verbatim_Last;
                Verbatim_Length := Input_Index - Beginning;
@@ -265,11 +265,11 @@
 
    function Compress (Dict : in Dictionary; Input : in String)
      return Ada.Streams.Stream_Element_Array
    is
       Result : Ada.Streams.Stream_Element_Array
-        (1 .. Compressed_Upper_Bound (Dict, Input) + 1);
+        (1 .. Compressed_Upper_Bound (Dict, Input));
       Last : Ada.Streams.Stream_Element_Offset;
    begin
       Compress (Dict, Input, Result, Last);
       return Result (Result'First .. Last);
    end Compress;