--- ibx/trunk/runtime/IBSQL.pas	2018/01/18 14:37:26	103
+++ ibx/trunk/runtime/IBSQL.pas	2018/01/18 14:37:29	104
@@ -938,6 +938,8 @@ end;
 
 procedure TIBSQL.SetTransaction(Value: TIBTransaction);
 begin
+  if FBase.Transaction = Value then Exit;
+  FreeHandle;
   FBase.Transaction := Value;
 end;