From 7361bb90fa79283b6eea5b373e7b385382cc41e3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 12 Feb 2009 02:41:47 -0600
Subject: [PATCH] images: fix load errors

---
 basis/images/images.factor    | 1 +
 basis/images/tiff/tiff.factor | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/images/images.factor b/basis/images/images.factor
index 9f4d14e7bf..5fdc9ee5e9 100644
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -1,5 +1,6 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
+USING: kernel accessors grouping sequences combinators ;
 IN: images
 
 SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ;
diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor
index c81d052a7f..dd4319a474 100755
--- a/basis/images/tiff/tiff.factor
+++ b/basis/images/tiff/tiff.factor
@@ -276,7 +276,7 @@ ERROR: unknown-component-order ifd ;
     } cleave tiff-image new-image ;
 
 : tiff>image ( image -- image )
-    ifds>> [ >image ] map first ;
+    ifds>> [ ifd>image ] map first ;
 
 : load-tiff ( path -- parsed-tiff )
     binary [