diff --git a/collects/plai/gc2/private/gc-core.rkt b/collects/plai/gc2/private/gc-core.rkt
index 31661478d2..3bcb4bd559 100644
--- a/collects/plai/gc2/private/gc-core.rkt
+++ b/collects/plai/gc2/private/gc-core.rkt
@@ -174,7 +174,7 @@
             (make-root 'vector
                        (λ () 
                           (vector-ref v i))
-                       (λ (ne) (vector-set! v ne)))))
+                       (λ (ne) (vector-set! v i ne)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Environments of closures