Index: src/natools-s_expressions.ads
==================================================================
--- src/natools-s_expressions.ads
+++ src/natools-s_expressions.ads
@@ -55,10 +55,12 @@
    Null_Atom : constant Atom (1 .. 0) := (others => <>);
 
    function To_String (Data : in Atom) return String;
    function To_Atom (Data : in String) return Atom;
 
+   function "=" (Left, Right : Atom) return Boolean
+     renames Ada.Streams."=";
    function "<" (Left, Right : Atom) return Boolean
      renames Ada.Streams."<";
    function Less_Than (Left, Right : Atom) return Boolean;