Index: tests/natools-s_expressions-interpreter_tests.adb
==================================================================
--- tests/natools-s_expressions-interpreter_tests.adb
+++ tests/natools-s_expressions-interpreter_tests.adb
@@ -50,12 +50,12 @@
 
    function Test_Interpreter return Test_Interpreters.Interpreter is
       Template : Recorder;
    begin
       return Inter : Test_Interpreters.Interpreter do
-         Inter.Add_Command (To_Atom ("cmd"), Template);
-         Inter.Add_Command (To_Atom ("command"), Template);
+         Inter.Add ("cmd", Template);
+         Inter.Add ("command", Template);
       end return;
    end Test_Interpreter;