Index: /branches/working-0711/ccl/compiler/X86/X8664/x8664-arch.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 7934)
+++ /branches/working-0711/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 7935)
@@ -1241,11 +1241,11 @@
     `(let* ((,typecode (ccl::typecode ,thing)))
       (declare (fixnum ,typecode))
-      (and (<= ,typecode x8664::subtag-instance)
-       (logbitp (the (integer 0 #.x8664::subtag-instance) ,typecode)
-        (logior (ash 1 x8664::tag-fixnum)
-                (ash 1 x8664::tag-imm-0)
-                (ash 1 x8664::tag-imm-1)
-                (ash 1 x8664::fulltag-symbol)
-                (ash 1 x8664::subtag-instance)))))))
+      (or (= ,typecode  x8664::subtag-instance)
+       (and (<= ,typecode x8664::fulltag-symbol)
+        (logbitp (the (integer 0 #.x8664::fulltag-symbol) ,typecode)
+                 (logior (ash 1 x8664::tag-fixnum)
+                         (ash 1 x8664::tag-imm-0)
+                         (ash 1 x8664::tag-imm-1)
+                         (ash 1 x8664::fulltag-symbol))))))))
 
 ;;;