diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm
index 87c2540a2..e180102c3 100644
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -407,7 +407,7 @@ the LABELS that are clobbered by the effects of LABEL."
   ((allocate-struct vt n)          (&allocate &struct)         &type-check)
   ((allocate-struct/immediate vt)  (&allocate &struct)         &type-check)
   ((make-struct/no-tail vt . _)    (&allocate &struct)         &type-check)
-  ((struct-ref s n)                (&read-object &vector)      &type-check)
+  ((struct-ref s n)                (&read-object &struct)      &type-check)
   ((struct-ref/immediate s)        (&read-field &struct param) &type-check)
   ((struct-set! s n x)             (&write-object &struct)     &type-check)
   ((struct-set!/immediate s x)     (&write-field &struct param) &type-check)