Index: /trunk/ccl/lib/read.lisp
===================================================================
--- /trunk/ccl/lib/read.lisp	(revision 223)
+++ /trunk/ccl/lib/read.lisp	(revision 224)
@@ -208,5 +208,5 @@
                                        (dotimes (i (uvsize tree))
                                          (declare (fixnum i))
-                                         (unless (and (eql i 0) (eql subtype arch::subtag-instance))
+                                         (unless (and (eql i 0) (eql subtype target::subtag-instance))
                                            (setf (uvref tree i) (circle-subst (uvref tree i))))))
                                      (locally