Index: src/natools-s_expressions-templates-generic_integers.adb
==================================================================
--- src/natools-s_expressions-templates-generic_integers.adb
+++ src/natools-s_expressions-templates-generic_integers.adb
@@ -375,10 +375,23 @@
       Template : in out Lockable.Descriptor'Class;
       Value : in T)
    is
       Parsed_Template : Format;
    begin
+      Parse (Parsed_Template, Template);
+      Output.Write (Render (Value, Parsed_Template));
+   end Render;
+
+
+   procedure Render
+     (Output : in out Ada.Streams.Root_Stream_Type'Class;
+      Default_Format : in Format;
+      Template : in out Lockable.Descriptor'Class;
+      Value : in T)
+   is
+      Parsed_Template : Format := Default_Format;
+   begin
       Parse (Parsed_Template, Template);
       Output.Write (Render (Value, Parsed_Template));
    end Render;
 
 

Index: src/natools-s_expressions-templates-generic_integers.ads
==================================================================
--- src/natools-s_expressions-templates-generic_integers.ads
+++ src/natools-s_expressions-templates-generic_integers.ads
@@ -61,10 +61,18 @@
      (Output : in out Ada.Streams.Root_Stream_Type'Class;
       Template : in out Lockable.Descriptor'Class;
       Value : in T);
       --  Read a rendering format from Template and use it on Value
 
+   procedure Render
+     (Output : in out Ada.Streams.Root_Stream_Type'Class;
+      Default_Format : in Format;
+      Template : in out Lockable.Descriptor'Class;
+      Value : in T);
+      --  Read a rendering format from Template, using defaults
+      --  from Default_Format, and use it on Value.
+
 
    ---------------------
    -- Auxiliary Types --
    ---------------------