diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index 096f039..00c233c 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -782,7 +782,7 @@ if not possible."
 	   (LIST
 	    (do ((io (make-seq-iterator object) (seq-iterator-next object io))
 	         (l nil (cons (seq-iterator-ref object io) l)))
-	        ((null io) l)))
+	        ((null io) (nreverse l))))
            (BASE-CHAR (let ((new (character object)))
                         (if (mkcl:base-char-p new) new (error-coerce object type))))
 	   (CHARACTER (character object))