diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp
index 424371e3e..d929a0c99 100644
--- a/src/lsp/pprint.lsp
+++ b/src/lsp/pprint.lsp
@@ -145,7 +145,7 @@
 
 (defun pretty-out (stream char)
   (declare (type pretty-stream stream)
-	   (type base-char char)
+	   (type character char)
 	   (si::c-local))
   (cond ((char= char #\newline)
 	 (enqueue-newline stream :literal))