diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index 3c288c3..8c90f3d 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -28,7 +28,7 @@
   "Help texts for commands.")
 
 (defvar *max-command-name-length* 0
-  "Lenght of the longest command name.")
+  "Length of the longest command name.")
 
 (defmacro call-command (name &rest args)
   (let ((command-name (make-command-name (symbol-name name))))