diff --git a/clog-system.lisp b/clog-system.lisp
index 5522e21..cd8885f 100644
--- a/clog-system.lisp
+++ b/clog-system.lisp
@@ -47,6 +47,7 @@ located at STATIC-ROOT."
 ;;;;;;;;;;;;;;;;;;;;;;;
 
 (defun set-on-new-window (on-new-window-handler)
+  "Change the on-new-window handler."
   (setf *on-new-window* on-new-window-handler))
 
 ;;;;;;;;;;;;;;