emu/Nt/ipif.c

1 files changed, 8 insertions, 4 deletions

diff --git a/appl/cmd/dial.b b/appl/cmd/dial.b
index c562a570..8821b49a 100644
--- a/appl/cmd/dial.b
+++ b/appl/cmd/dial.b
@@ -1,4 +1,4 @@
-implement Dial;
+implement Dialcmd;
 include "sys.m";
 	sys: Sys;
 include "draw.m";
@@ -7,11 +7,12 @@ include "keyring.m";
 	keyring: Keyring;
 include "security.m";
 	auth: Auth;
+include "dial.m";
 include "sh.m";
 	sh: Sh;
 	Context: import sh;
 
-Dial: module {
+Dialcmd: module {
 	init: fn(nil: ref Draw->Context, argv: list of string);
 };
 
@@ -35,6 +36,9 @@ init(drawctxt: ref Draw->Context, argv: list of string)
 	arg := load Arg Arg->PATH;
 	if (arg == nil)
 		badmodule(Arg->PATH);
+	dial := load Dial Dial->PATH;
+	if(dial == nil)
+		badmodule(Dial->PATH);
 	sh = load Sh Sh->PATH;
 	if (sh == nil)
 		badmodule(Sh->PATH);
@@ -87,8 +91,8 @@ init(drawctxt: ref Draw->Context, argv: list of string)
 		}
 	}
 
-	(ok, c) := sys->dial(addr, nil);
-	if (ok == -1) {
+	c := dial->dial(addr, nil);
+	if (c == nil) {
 		sys->fprint(stderr(), "dial: cannot dial %s:: %r\n", addr);
 		raise "fail:errors";
 	}