diff --git a/tdi/remote/MdsConnect.fun b/tdi/remote/MdsConnect.fun index f64cd602bc..5a301e2edb 100644 --- a/tdi/remote/MdsConnect.fun +++ b/tdi/remote/MdsConnect.fun @@ -13,6 +13,6 @@ call: _host = Host name eg elpp1.epfl.ch or elpp1.epfl.ch:9000 write(*,"Host taken from MDS_HOST ["//_host//"]"); } _status = TdiShrExt->rMdsConnect(ref(_host//char(0))); - if (present(_abort) && _status == 0) abort(); + if (present(_abort) && _status == -1) abort(); return(_status); }