diff --git a/source/main.pas b/source/main.pas
index f629c014..00759818 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -5943,7 +5943,7 @@ begin
         DBObjects := Connection.GetDBObjects(Databases[Node.Parent.Index]);
         // Various bug reports refer to this location where we reference a db object which is outside the range
         // of DBObjects. Probably a timing issue. Work around that by doing a safety check here.
-        if Node.Index >= DBObjects.Count then
+        if Node.Index >= Cardinal(DBObjects.Count) then
           Exit;
         case DBObjects[Node.Index].NodeType of
           lntTable: