Index: src/natools-s_expressions-generic_caches.adb
==================================================================
--- src/natools-s_expressions-generic_caches.adb
+++ src/natools-s_expressions-generic_caches.adb
@@ -267,10 +267,17 @@
 
    overriding function Current_Level (Object : in Cursor) return Natural is
       Result : Natural := 0;
       N : Node_Access := Object.Position;
    begin
+      if Object.Position /= null
+        and then Object.Position.Kind = List_Node
+        and then Object.Opening
+      then
+         Result := Result + 1;
+      end if;
+
       while N /= null loop
          Result := Result + 1;
          N := N.Parent;
       end loop;