diff --git a/lisp/ob-forth.el b/lisp/ob-forth.el
index bd9ec04a4..9615ccd85 100644
--- a/lisp/ob-forth.el
+++ b/lisp/ob-forth.el
@@ -45,7 +45,7 @@
   "Default header arguments for forth code blocks.")
 
 (defun org-babel-execute:forth (body params)
-  "Execute a block of Forth code with org-babel.
+  "Execute Forth BODY according to PARAMS.
 This function is called by `org-babel-execute-src-block'."
   (if (string= "none" (cdr (assq :session params)))
       (error "Non-session evaluation not supported for Forth code blocks")
@@ -55,6 +55,7 @@ This function is called by `org-babel-execute-src-block'."
 	(car (last all-results))))))
 
 (defun org-babel-forth-session-execute (body params)
+  "Execute Forth BODY in session defined via PARAMS."
   (org-require-package 'forth-mode)
   (let ((proc (forth-proc))
 	(rx " \\(\n:\\|compiled\n\\|ok\n\\)")