diff --git a/lisp/print.c b/lisp/print.c
index b783cf75640b99cd2a3fb9d57b7b5f2ece61abd4..09e2bbe784590a57a2808a5662fe27ad24678fb3 100644
--- a/lisp/print.c
+++ b/lisp/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.27 2010/10/10 13:02:10 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.28 2010/10/10 14:11:47 rtoy Exp $ */
 
 #include <stdio.h>
 #include <string.h>
@@ -385,7 +385,7 @@ brief_otherptr(lispobj obj)
 #else
           {
               char *charptr = (char *) vector->data;
-              int len = (int) (vector->length >> (logtag_Bits - 1);
+              int len = (int) (vector->length >> (lowtag_Bits - 1));
               
               while (len-- > 0) {
                   if ((charptr[0] == 0)