around 'load_objects' => sub {

    my $orig = shift;
    my $self = shift;

    $rcref = Variant(VT_I2|VT_BYREF, 0);

    return $self->$orig(@_, $rcref);

    die "error" unless ( $rcref == 0 );

};