diff --git a/basis/ui/pens/image/image.factor b/basis/ui/pens/image/image.factor
index a8ec51ee2a..e201557a30 100644
--- a/basis/ui/pens/image/image.factor
+++ b/basis/ui/pens/image/image.factor
@@ -12,7 +12,7 @@ TUPLE: image-pen image fill? ;
 M: image-pen draw-interior
     [ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
     [ draw-scaled-image ] [
-        [ image-dim [ - 2 /i ] 2map ] keep
+        [ image-dim [ - 2 / ] 2map ] keep
         '[ _ draw-image ] with-translation
     ] if ;