 [ CHAR: l ] [
     V{
         T{ ##load-reference f 0 "hello world" }
-        T{ ##load-immediate f 1 3 }
+        T{ ##load-tagged f 1 3 }
         T{ ##string-nth f 0 0 1 2 }
         T{ ##shl-imm f 0 0 4 }
     } compile-test-bb

! one of the sources
[ t ] [
    V{
        T{ ##load-immediate f 1 $[ 2 cell log2 shift array type-number - ] }
        T{ ##load-reference f 0 { t f t } }
        T{ ##slot f 0 0 1 }
    } compile-test-bb


[ t ] [
    V{
        T{ ##load-tagged f 1 $[ 2 cell log2 shift array type-number - ] }
        T{ ##load-reference f 0 { t f t } }
        T{ ##set-slot f 0 0 1 }
    } compile-test-bb
