diff --git a/extra/graphics/tiff/tiff.factor b/extra/graphics/tiff/tiff.factor
index 462f75ff79..5c1fd4ec65 100755
--- a/extra/graphics/tiff/tiff.factor
+++ b/extra/graphics/tiff/tiff.factor
@@ -169,7 +169,7 @@ ERROR: bad-tiff-magic bytes ;
 
 : read-ifds ( tiff -- tiff )
     [
-        dup ifd-offset>> seek
+        dup ifd-offset>> seek-input
         2 read endian>
         dup [ read-ifd ] replicate
         4 read endian>
@@ -184,7 +184,7 @@ ERROR: bad-tiff-magic bytes ;
     dup count>> 1 = [
         offset>>
     ] [
-        [ offset>> seek ] [ count>> read ] bi
+        [ offset>> seek-input ] [ count>> read ] bi
     ] if ;
 
 : process-ifd-entry ( ifd-entry -- object )