diff --git a/build/lisp.tcl b/build/lisp.tcl
index 0b8d9961..a4409077 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -244,6 +244,9 @@ respond "*" ":link sys1;ts lookup,inquir;ts lookup\r"
 respond "*" ":midas sys3;ts lsrprt_sysen1; lsrprt\r"
 expect ":KILL"
 
+respond "*" ":midas sys3;ts lsrdmp_bawden; lsrdmp\r"
+expect ":KILL"
+
 respond "*" ":print cstacy;..new. (udir)\r"
 type ":vk\r"
 
diff --git a/doc/programs.md b/doc/programs.md
index 7f0c9a6a..5261a20b 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -159,6 +159,7 @@
 - LOSS (device).
 - LOTCLN - LOGOUT TIMES cleanup program.
 - LSPEED, set TTY line parameters.
+- LSRDMP, dump the user database.
 - LSRPRT, print information about user groups.
 - LUSER, request help from registered list of logged-in users.
 - MACN80, Z80 cross assembler.