anchor.diff:                      else
                         AOnException(AException);
                     end;
  -              end
  -              else
  -                LOnException := nil;
   
                 LResource.DELETE(
                     ABeforeExecute
                   , procedure (AStream: TStream)
                     begin
  -                    Assign(LResource);
  +                    CloneStatus(LResource);
   
                       if Assigned(ACompletionHandler) then
                       begin
  
positive.code:                     else
                        AOnException(AException);
                    end;
                end
                else
                  LOnException := nil;
  
                LResource.PUT(
                  ABeforeExecute
                , procedure (AStream: TStream)
                  begin
                    Assign(LResource);
  
                    if Assigned(ACompletionHandler) then
                    begin
  
negative.code:               , LOnException
                );
              finally
                FreeAndNil(LResource);
                FreeAndNil(LApplication);
                FreeAndNil(LClient);
              end;
            end
          );
  