diff --git a/basis/images/images.factor b/basis/images/images.factor
index 46c0936644..e8f5530706 100644
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -1,9 +1,11 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel accessors grouping sequences combinators ;
+USING: kernel accessors grouping sequences combinators
+math specialized-arrays.direct.uint byte-arrays ;
 IN: images
 
-SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ;
+SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR
+32R32G32B ;
 
 TUPLE: image dim component-order byte-order bitmap ;
 
@@ -15,6 +17,14 @@ GENERIC: load-image* ( path tuple -- image )
     dup component-order>>
     {
         { RGBA [ ] }
+        { 32R32G32B [
+            [
+                ! >byte-array
+                ! dup length 4 /i <direct-uint-array> [ 32 2^ /i ] map
+                ! >byte-array
+                ! 4 <sliced-groups> le> [ 32 2^ /i ] map concat
+            ] change-bitmap
+        ] }
         { BGRA [
             [
                 4 <sliced-groups> dup [ [ 0 3 ] dip <slice> reverse-here ] each
diff --git a/basis/images/loader/loader.factor b/basis/images/loader/loader.factor
index 9e3f901269..6f2ae47c61 100644
--- a/basis/images/loader/loader.factor
+++ b/basis/images/loader/loader.factor
@@ -10,6 +10,7 @@ ERROR: unknown-image-extension extension ;
 : image-class ( path -- class )
     file-extension >lower {
         { "bmp" [ bitmap-image ] }
+        { "tif" [ tiff-image ] }
         { "tiff" [ tiff-image ] }
         [ unknown-image-extension ]
     } case ;
diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor
index 0b749d0ade..baac3a2dfb 100755
--- a/basis/images/tiff/tiff.factor
+++ b/basis/images/tiff/tiff.factor
@@ -276,9 +276,10 @@ ERROR: unhandled-compression compression ;
 ERROR: unknown-component-order ifd ;
 
 : ifd-component-order ( ifd -- byte-order )
-    bits-per-sample find-tag sum {
-        { 32 [ RGBA ] }
-        { 24 [ RGB ] }
+    bits-per-sample find-tag {
+        { { 32 32 32 } [ 32R32G32B ] }
+        { { 8 8 8 8 } [ RGBA ] }
+        { { 8 8 8 } [ RGB ] }
         [ unknown-component-order ]
     } case ;