From fb2f0161f587d86b815b50972cadda4b1936d080 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Mon, 1 May 2017 18:46:13 +0000
Subject: [PATCH] * Fix bug #31742

git-svn-id: trunk@54796 -
---
 tools/jsonviewer/frmmain.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;