Index: src/natools-s_expressions-file_readers.adb
==================================================================
--- src/natools-s_expressions-file_readers.adb
+++ src/natools-s_expressions-file_readers.adb
@@ -52,10 +52,11 @@
 
 
    procedure Rewind (Object : in out S_Reader) is
    begin
       Stream_IO.Set_Index (Object.Holder.File, 1);
+      Object.Reset;
       Object.Next;
    end Rewind;
 
 
    overriding procedure Read_More