diff --git a/Makefile b/Makefile
index f12aed24..e591c46b 100644
--- a/Makefile
+++ b/Makefile
@@ -26,7 +26,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       draw wl taa tj6 budd sharem ucode rvb kldcp math as imsrc gls demo \
       macsym lmcons dmcg hack hibou agb gt40 rug maeda ms kle aap common \
       fonts zork 11logo kmp info aplogo bkph bbn pdp11 chsncp sca music1 \
-      moon teach ken lmio1 llogo chsgtv clib
+      moon teach ken lmio1 llogo chsgtv clib sys3
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \
diff --git a/build/misc.tcl b/build/misc.tcl
index 9177ffca..447612dd 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1113,27 +1113,27 @@ respond "*" ":midas string cmid\r"
 respond "*" ":midas uuoh cmid\r"
 respond "*" ":midas /t c10run cmid\r"
 clib_switches
-respond "*" ":c;cc c10exp.c\r"
-respond "*" ":c;cc c10fd.c\r"
-respond "*" ":c;cc c10fil.c\r"
-respond "*" ":c;cc c10fnm.c\r"
-respond "*" ":c;cc c10io.c\r"
-respond "*" ":c;cc c10map.c\r"
-respond "*" ":c;cc c10pag.c\r"
-respond "*" ":c;cc c10tty.c\r"
-respond "*" ":c;cc ac.c\r"
-respond "*" ":c;cc apfnam.c\r"
-respond "*" ":c;cc atoi.c\r"
-respond "*" ":c;cc cprint.c\r"
-respond "*" ":c;cc date.c\r"
-respond "*" ":c;cc fprint.c\r"
-respond "*" ":c;cc match.c\r"
-respond "*" ":c;cc pr60th.c\r"
-respond "*" ":c;cc stkdmp.c\r"
+respond "*" ":cc c10exp.c\r"
+respond "*" ":cc c10fd.c\r"
+respond "*" ":cc c10fil.c\r"
+respond "*" ":cc c10fnm.c\r"
+respond "*" ":cc c10io.c\r"
+respond "*" ":cc c10map.c\r"
+respond "*" ":cc c10pag.c\r"
+respond "*" ":cc c10tty.c\r"
+respond "*" ":cc ac.c\r"
+respond "*" ":cc apfnam.c\r"
+respond "*" ":cc atoi.c\r"
+respond "*" ":cc cprint.c\r"
+respond "*" ":cc date.c\r"
+respond "*" ":cc fprint.c\r"
+respond "*" ":cc match.c\r"
+respond "*" ":cc pr60th.c\r"
+respond "*" ":cc stkdmp.c\r"
 # Expect ZMAIN to be undefined, and three symbols in DATE.
 respond "*" ":stinkr mkclib\r"
-respond "*" ":c;cc maklib.c\r"
-respond "*" ":c;cc c10job.c\r"
+respond "*" ":cc maklib.c\r"
+respond "*" ":cc c10job.c\r"
 respond "*" ":stinkr maklib\r"
 respond "*" ":maklib\r"
 expect ":MIDAS"
@@ -1142,19 +1142,19 @@ respond "*" ":delete c; \[crel\] 16\r"
 
 # CC
 respond "*" ":cwd c\r"
-respond "*" ":c;cc cc.>\r"
+respond "*" ":cc cc.>\r"
 expect ":KILL"
-respond "*" ":c;cc c5.c\r"
+respond "*" ":cc c5.c\r"
 expect ":KILL"
-respond "*" ":c;cc c93.c\r"
+respond "*" ":cc c93.c\r"
 expect ":KILL"
-respond "*" ":c;cc clib/c10exc.c\r"
+respond "*" ":cc clib/c10exc.c\r"
 expect ":KILL"
 respond "*" ":stinkr cc\r"
 expect ":KILL"
 
 # GT
-respond "*" ":c;cc g0.c g1.c g2.c g3.c g4.c g5.c c25.c\r"
+respond "*" ":cc g0.c g1.c g2.c g3.c g4.c g5.c c25.c\r"
 expect ":KILL"
 respond "*" ":stinkr gt\r"
 
@@ -1170,7 +1170,7 @@ respond "*" ":link sys; ts tj6, sys; ts ntj6\r"
 
 # OINIT
 respond "*" ":cwd c\r"
-respond "*" ":c;cc sysen2/oinit\r"
+respond "*" ":cc sysen2/oinit\r"
 expect ":KILL"
 respond "*" ":stinkr\r"
 respond "=" "x c/clib\r"
diff --git a/src/sys3/ts.cc b/src/sys3/ts.cc
new file mode 120000
index 00000000..4048da15
--- /dev/null
+++ b/src/sys3/ts.cc
@@ -0,0 +1 @@
+c/ts.cc
\ No newline at end of file