diff --git a/sequences.lisp b/sequences.lisp
index 4895d1dabaa07237fafdef91e7ad21420c52b887..d79830bc27253a076ae5ae2fb948db36a9a28bfa 100644
--- a/sequences.lisp
+++ b/sequences.lisp
@@ -138,7 +138,7 @@ that are not lists."
 
 (defun emptyp (sequence)
   "Returns true if SEQUENCE is an empty sequence. Signals an error if SEQUENCE
-is not a sequence"
+is not a sequence."
   (etypecase sequence
     (list (null sequence))
     (sequence (zerop (length sequence)))))