Index: tests/natools-smaz-tests.adb
==================================================================
--- tests/natools-smaz-tests.adb
+++ tests/natools-smaz-tests.adb
@@ -78,11 +78,11 @@
            (1 .. Decompressed_Length (Dict, Buffer (1 .. Last)));
          Last_2 : Natural;
          Done : Boolean := False;
       begin
          begin
-            Decompress (Dict, Compressed, Buffer_2, Last_2);
+            Decompress (Dict, Buffer (1 .. Last), Buffer_2, Last_2);
             Done := True;
          exception
             when Error : others =>
                Test.Info ("During compression of """ & Decompressed & '"');
                Test.Report_Exception (Error, NT.Fail);