         ] unless
     ] ignore-errors
 
-    #! Only 24-bit uncompressed RGB and 32-bit uncompressed ARGB are supported.
+    #! Only 24-bit uncompressed BGR and 32-bit uncompressed BGRA are supported.
     #! Other formats would need to be converted to work within the image class.
     map-type 0 = [ bad-tga-unsupported ] unless 
     image-type 2 = [ bad-tga-unsupported ] unless

    
    #! 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
