Index: src/natools-s_expressions-file_writers.adb
==================================================================
--- src/natools-s_expressions-file_writers.adb
+++ src/natools-s_expressions-file_writers.adb
@@ -72,6 +72,12 @@
    begin
       Finalize (Self.Holder);
       Stream_IO.Open (Self.Holder.File, Stream_IO.Append_File, Name, Form);
    end Open;
 
+
+   function Name (Self : Writer) return String is
+   begin
+      return Stream_IO.Name (Self.Holder.File);
+   end Name;
+
 end Natools.S_Expressions.File_Writers;

Index: src/natools-s_expressions-file_writers.ads
==================================================================
--- src/natools-s_expressions-file_writers.ads
+++ src/natools-s_expressions-file_writers.ads
@@ -39,10 +39,13 @@
    procedure Open
      (Self : in out Writer;
       Name : in String;
       Form : in String := "");
       --  Reinitialize Self using Stream_IO.Create or Stream_IO.Open
+
+   function Name (Self : Writer) return String;
+      --  Return the underlying file name
 
 private
 
    type Autoclose is new Ada.Finalization.Limited_Controlled with record
       File : Ada.Streams.Stream_IO.File_Type;