--- ibx/trunk/runtime/ibxscript.pas	2018/01/18 14:37:40	107
+++ ibx/trunk/runtime/ibxscript.pas	2018/01/18 14:37:46	108
@@ -652,7 +652,7 @@ end;
 
 procedure TCustomIBXScript.SetDatabase(AValue: TIBDatabase);
 begin
- if FDatabase = AValue then Exit;
+ if not (csLoading in ComponentState) and (FDatabase = AValue) then Exit;
  FDatabase := AValue;
  FISQL.Database := AValue;
  FIBXMLProcessor.Database := AValue;