diff --git a/basis/compiler/cfg/alias-analysis/alias-analysis.factor b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
index 6b1e0c47b6..198ffb5549 100644
--- a/basis/compiler/cfg/alias-analysis/alias-analysis.factor
+++ b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
@@ -203,11 +203,11 @@ M: ##alien-global insn-object drop \ ##alien-global ;
     H{ } clone live-slots set
     H{ } clone constants set
     H{ } clone copies set
-
-    [ set-heap-ac ] each
     
     0 ac-counter set
-    next-ac heap-ac set ;
+    next-ac heap-ac set
+
+    [ set-heap-ac ] each ;
 
 GENERIC: analyze-aliases* ( insn -- insn' )