diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 4ada43301..60a0d9faf 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -379,7 +379,8 @@ under certain conditions; see file 'Copyright' for details.")
       (error "Console interrupt -- cannot continue."))))
 
 (defun tpl (&key ((:commands *tpl-commands*) tpl-commands)
-		 (broken-at nil)
+		 ((:prompt-hook *tpl-prompt-hook*) *tpl-prompt-hook*)
+  		 (broken-at nil)
 		 (quiet nil))
   (let* ((*ihs-base* *ihs-top*)
 	 (*ihs-top* (if broken-at (ihs-search t broken-at) (ihs-top 'tpl)))