* Added check for circular datasource reference in case datasource not nil

git-svn-id: trunk@8168 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -1413,7 +1413,7 @@ begin
   DS:=DataSource;
   If (AValue<>DS) then
     begin
-    If (AValue.Dataset=Self) then
+    If Assigned(AValue) and (AValue.Dataset=Self) then
       DatabaseError(SErrCircularDataSourceReferenceNotAllowed,Self);
     If Assigned(DS) then
       DS.RemoveFreeNotification(Self);