diff --git a/build/sail.tcl b/build/sail.tcl
index 5866c07d..bde39d23 100644
--- a/build/sail.tcl
+++ b/build/sail.tcl
@@ -121,3 +121,14 @@ respond "*" ":kill\r"
 
 respond "*" ":midas datdrw;_draw; scnv\r"
 expect ":KILL"
+
+respond "*" ":cwd pub\r"
+respond "*" ":fail psailv\r"
+respond "*" "\003"
+respond "*" ":kill"
+respond "*" ":fail ttycom\r"
+respond "*" "\003"
+respond "*" ":kill"
+respond "*" ":stink psailv\r"
+expect ":KILL"
+respond "*" ":link sys; ts sailv, pub; psailv\r"