Index: src/natools-s_expressions-parsers.adb
==================================================================
--- src/natools-s_expressions-parsers.adb
+++ src/natools-s_expressions-parsers.adb
@@ -102,11 +102,11 @@
       Event : out Events.Event)
    is
       O : Octet;
    begin
       if Self.Locked then
-         Event := Evnets.End_Of_Input;
+         Event := Events.End_Of_Input;
          return;
       end if;
 
       Self.Latest := Events.Error;
       loop