Index: src/natools-chunked_strings.adb
==================================================================
--- src/natools-chunked_strings.adb
+++ src/natools-chunked_strings.adb
@@ -788,10 +788,11 @@
 
 
 
    procedure Hard_Reset (Str : in out Chunked_String) is
    begin
+      Str.Size := 0;
       Free (Str.Data);
    end Hard_Reset;