diff --git a/src/lsp/seqlib.lsp b/src/lsp/seqlib.lsp
index 4f3e3c1c2..dfc2aa5f8 100644
--- a/src/lsp/seqlib.lsp
+++ b/src/lsp/seqlib.lsp
@@ -16,6 +16,7 @@
 (defun seqtype (sequence)
   (declare (si::c-local))
   (cond ((listp sequence) 'list)
+	#+unicode
 	((base-string-p sequence) 'base-string)
         ((stringp sequence) 'string)
         ((bit-vector-p sequence) 'bit-vector)