diff --git a/basis/images/loader/loader.factor b/basis/images/loader/loader.factor
index 60580d959a..8c458b0c9f 100644
--- a/basis/images/loader/loader.factor
+++ b/basis/images/loader/loader.factor
@@ -30,7 +30,7 @@ GENERIC: stream>image ( stream class -- image )
     swap types get set-at ;
 
 : load-image ( path -- image )
-    [ open-image-file ] [ image-class new ] bi load-image* ;
+    [ open-image-file ] [ image-class ] bi load-image* ;
 
 M: byte-array load-image*
     [ binary <byte-reader> ] dip stream>image ;
diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor
index 624641ae51..0d16bf75d4 100755
--- a/basis/images/tiff/tiff.factor
+++ b/basis/images/tiff/tiff.factor
@@ -449,7 +449,6 @@ ERROR: unhandled-compression compression ;
     dup strips>> concat >>bitmap ;
 
 : (strips-predictor) ( ifd -- ifd )
-B
     [ ]
     [ image-width find-tag ]
     [ samples-per-pixel find-tag ] tri