         [ dim>> second 2 >le write ]
         [ component-order>>
           {
-              {  RGB [ B{ 24 } write ] }
-              { ARGB [ B{ 32 } write ] }
+              {  BGR [ B{ 24 } write ] }
+              { BGRA [ B{ 32 } write ] }
           } case
         ]
         [
             dup component-order>>
             {
-                {  RGB [ 0 ] }
-                { ARGB [ 8 ] }
+                {  BGR [ 0 ] }
+                { BGRA [ 8 ] }
             } case swap
             upside-down?>> [ 0 ] [ 2 ] if 3 shift bitor
             1 >le write

    
    #! Create image instance
    image new
    alpha-bits 0 = [ RGB ] [ ARGB ] if >>component-order
    { image-width image-height }       >>dim
    pixel-order 0 =                    >>upside-down?
    image-data                         >>bitmap

M: tga-image image>stream
    drop
    [
        component-order>> { BGRA BGRA } member? [ bad-tga-unsupported ] unless
    ] keep

    B{ 0 }         write #! id-length
