Index: /trunk/source/compiler/nx0.lisp
===================================================================
--- /trunk/source/compiler/nx0.lisp	(revision 15348)
+++ /trunk/source/compiler/nx0.lisp	(revision 15349)
@@ -2559,5 +2559,6 @@
              (go START)))
          (unless macro-function
-           (when (setq transforms (structref-info sym environment))
+           (when (and (eql (length (%cdr form)) 1)
+                      (setq transforms (structref-info sym environment)))
              (setq form (defstruct-ref-transform transforms (%cdr form) environment))
              (form-changed form)