diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 14c75cf3..964d3521 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -4957,7 +4957,7 @@ end;
 function TDBObjectComparer.Compare(const Left, Right: TDBObject): Integer;
 begin
   // Simple sort method for a TDBObjectList
-  Result := CompareAnyNode(Left.Name, Right.Name);
+  Result := CompareAnyNode(Left.Schema+'.'+Left.Name, Right.Schema+'.'+Right.Name);
 end;