Index: src/natools-s_expressions-interpreters.adb
==================================================================
--- src/natools-s_expressions-interpreters.adb
+++ src/natools-s_expressions-interpreters.adb
@@ -27,10 +27,19 @@
    begin
       Self.Commands.Insert (Name, Cmd);
       Self.Max_Length := Count'Max (Self.Max_Length, Name'Length);
    end Add_Command;
 
+
+   procedure Add
+     (Self : in out Interpreter;
+      Name : in String;
+      Cmd : in Command'Class) is
+   begin
+      Self.Add_Command (To_Atom (Name), Cmd);
+   end Add;
+
 
    function Has_Command (Self : Interpreter; Name : Atom) return Boolean is
    begin
       return Self.Commands.Contains (Name);
    end Has_Command;

Index: src/natools-s_expressions-interpreters.ads
==================================================================
--- src/natools-s_expressions-interpreters.ads
+++ src/natools-s_expressions-interpreters.ads
@@ -69,10 +69,15 @@
    procedure Add_Command
      (Self : in out Interpreter;
       Name : in Atom;
       Cmd : in Command'Class);
 
+   procedure Add
+     (Self : in out Interpreter;
+      Name : in String;
+      Cmd : in Command'Class);
+
    function Has_Command (Self : Interpreter; Name : Atom) return Boolean;
 
    function Is_Empty (Self : Interpreter) return Boolean;
 
    procedure Set_Fallback