diff --git a/tools/jsonviewer/frmmain.pp b/tools/jsonviewer/frmmain.pp
index 3218d5e4c6..5e20e30558 100644
--- a/tools/jsonviewer/frmmain.pp
+++ b/tools/jsonviewer/frmmain.pp
@@ -909,7 +909,8 @@ begin
   While (Result=Nil) and (ANode<>Nil) do
     begin
     ANode:=ANode.Parent;
-    Result:=ANode.GetNextSibling;
+    if assigned(ANode) then
+      Result:=ANode.GetNextSibling;
     end;
 end;