From 399847447038cb083e5e1a8d9f4c4d86d6da9b93 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 4 Dec 2016 14:56:27 +0100
Subject: [PATCH] #97, fix possible range error in variables list

---
 src/ce_gdb.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index 9a1b0c29..5473a42c 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -2055,7 +2055,7 @@ begin
       with lstVariables.Items[lstVariables.Items.Count-1] do
         SubItems.Add(val.AsString);
     end;
-    if (j <> -1) and (j <= lstVariables.Items.Count) then
+    if (j <> -1) and (j < lstVariables.Items.Count) then
       lstVariables.ItemIndex := j;
     lstVariables.EndUpdate;
   end;