diff --git a/build/emacs.tcl b/build/emacs.tcl
index c1e31117..9f12dfa9 100644
--- a/build/emacs.tcl
+++ b/build/emacs.tcl
@@ -52,6 +52,7 @@ respond ":EJ" "\033xgenerate\033emacs;delim\033emacs1;delim\r"
 respond ":EJ" "\033xgenerate\033emacs;dired\033emacs1;dired\r"
 respond ":EJ" "\033xgenerate\033emacs;doclsp\033emacs1;doclsp\r"
 respond ":EJ" "\033xgenerate\033emacs;docond\033emacs1;docond\r"
+respond ":EJ" "\033xgenerate\033emacs;doctor\033emacs1;doctor\r"
 respond ":EJ" "\033xgenerate\033emacs;env\033dcp;eenv\r"
 respond ":EJ" "\033xgenerate\033emacs;elisp\033emacs1;elisp\r"
 respond ":EJ" "\033xgenerate\033emacs;info\033emacs1;info\r"
diff --git a/src/emacs1/doctor.17 b/src/emacs1/doctor.17
new file mode 100755
index 00000000..6315d62e
Binary files /dev/null and b/src/emacs1/doctor.17 differ