     V{
         T{ ##peek f 0 D 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 0 D 0 }
     }
 ] [
     V{

[ ] [
    cfg new 0 get >>entry
    value-numbering
    eliminate-dead-code
    drop
] unit-test


        T{ ##peek f 0 D 0 }
        T{ ##peek f 1 D 1 }
        T{ ##copy f 3 0 any-rep }
        T{ ##replace f 0 D 0 }
    }
] [
    V{
