diff --git a/build/basics.tcl b/build/basics.tcl
index 0bf1389f..c0dd73c0 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -36,6 +36,7 @@ type ":vk\r"
 # TCTYP
 respond "*" ":midas sys1; ts tctyp_syseng;tctyp\r"
 expect ":KILL"
+respond "*" ":link sys1;ts tctype, sys1; ts tctyp\r"
 
 source $build/emacs.tcl