+<<
+! For the two annoying structs that differ on 32 and 64 bit.
+cpu x86.32?
+"tools.image-analyzer.vm.32"
+"tools.image-analyzer.vm.64"
+? use-vocab
+>>
+
+: tag>class ( tag -- class )
+ {
+ { 2 array }
+ { 3 boxed-float }
+ { 4 quotation }
+ { 5 bignum }
+ { 6 alien }
+ { 7 tuple }
+ { 8 wrapper }
+ { 9 byte-array }
+ { 10 callstack }
+ { 11 string }
+ { 12 word }
+ { 13 dll }
+ } at ;
+