diff --git a/build/emacs.tcl b/build/emacs.tcl
index 19870d42..40ef918d 100644
--- a/build/emacs.tcl
+++ b/build/emacs.tcl
@@ -126,3 +126,6 @@ respond "*" ":dumpt \033turnip;view\r"
 expect "Dumped to"
 respond "*" ":tctyp la36\r"
 respond "*" ":move turnip; ts view, sys3;\r"
+
+# VDIR
+respond "*" ":link sys3; ts vdir, ts view\r"
diff --git a/doc/programs.md b/doc/programs.md
index 455e52db..d47be112 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -289,6 +289,7 @@
 - URUG, GT40 debugger.
 - USQ/TYPESQ, unsqueeze/uncram or type a file.
 - VERSA/SPOOLR, Versatec/Gould printer spooler.
+- VDIR, view directory.
 - VIEW, view file.
 - VT07, GT40 Datapoint emulator and Lisp display slave.
 - VTTIME, display running time on the terminal.