diff --git a/Makefile b/Makefile
index afbb01ba..1657aeb9 100644
--- a/Makefile
+++ b/Makefile
@@ -1,6 +1,6 @@
 EMULATOR ?= simh
 
-SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas _teco_ emacs rms klh syshst sra mrc ksc
+SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas _teco_ emacs rms klh syshst sra mrc ksc cstacy
 DOC = info _info_ sysdoc kshack _teco_ emacs emacs1
 MINSYS = _ sys sys2 sys3 device emacs _teco_ sysbin inquir
 
diff --git a/README.md b/README.md
index 568b1538..876773bb 100644
--- a/README.md
+++ b/README.md
@@ -86,6 +86,7 @@ from scratch.
    - FTPS, FTP Server
    - FTPU, FTP Client
    - NAME, Shows logged in users and locations, aka FINGER
+   - TALK/WHO/WHOJ/WHOM/USERS, list users.
 
 6. A brand new host table is built from the host table source and
    installed into SYSBIN; HOSTS3 > using H3MAKE.
diff --git a/build/build.tcl b/build/build.tcl
index 304214ef..ad839852 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -256,6 +256,25 @@ respond "*" ":midas device;jobdev arc_syseng;arcdev\r"
 expect ":KILL"
 respond "*" ":link device;jobdev ar,device;jobdev arc\r"
 
+respond "*" ":midas sysbin;_ar1:cstacy;whoj\r"
+expect ":KILL"
+respond "*" ":print sys1;..new. (udir)\r"
+type ":vk\r"
+respond "*" ":link sys1;ts talk,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts who,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts whoj,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts whom,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys2;ts users,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts w,sys1;ts who bin\r"
+type ":vk\r"
+respond "*" ":link sys2;ts u,sys2;ts users bin\r"
+type ":vk\r"
+
 respond "*" ":midas channa;atsign taraka_syseng; dragon\r"
 expect ":KILL"
 respond "*" ":link sys; atsign dragon,channa; atsign taraka\r"
diff --git a/src/cstacy/ar1.src1 b/src/cstacy/ar1.src1
new file mode 100755
index 00000000..44c176ae
Binary files /dev/null and b/src/cstacy/ar1.src1 differ