Index: tests/natools-s_expressions-lockable-tests.adb
==================================================================
--- tests/natools-s_expressions-lockable-tests.adb
+++ tests/natools-s_expressions-lockable-tests.adb
@@ -102,13 +102,13 @@
       begin
          if Event /= Events.Close_List then
             Test.Fail ("Current event is " & Events.Event'Image (Event)
               & ", expected Close_List");
          end if;
-         if Level /= 1 then
+         if Level /= 0 then
             Test.Fail ("Current level is" & Natural'Image (Level)
-              & ", expected 1");
+              & ", expected 0");
          end if;
       end;
 
       Object.Unlock (Level_1);