diff --git a/pcl/vector.lisp b/pcl/vector.lisp
index 2ae4c6c5b5fbb593e2634a52cfdaaa91de4b626a..52d58a5be5f478579d38f5d9d2cf8cc96ccafe30 100644
--- a/pcl/vector.lisp
+++ b/pcl/vector.lisp
@@ -881,12 +881,12 @@
 
 (defvar *variable-declarations-without-argument*
   '(ignore ignorable special dynamic-extent
-    array atom base-char bignum bit bit-vector character common compiled-function
+    array atom base-char bignum bit bit-vector character compiled-function
     complex cons double-float extended-char fixnum float function hash-table integer
     keyword list long-float nil null number package pathname random-state ratio
     rational readtable sequence short-float signed-byte simple-array
     simple-bit-vector simple-string simple-vector single-float standard-char
-    stream symbol t unsigned-byte vector))
+    stream string symbol t unsigned-byte vector))
 
 (defun split-declarations (body args calls-next-method-p)
   (let ((inner-decls nil) (outer-decls nil) decl)