               selection-was-pasted (om/get-state owner :selection-was-pasted)
               backfill (create-sub-image-for-rect (om/get-state owner :selection))]
         (when (not selection-was-pasted)
-          (paste-image app owner x1 y1 backfill))
-        (paste-image app owner paste-x paste-y (om/get-state owner :selection-image)))
+          (paste-image app owner x1 y1 backfill true))
+        (paste-image app owner paste-x paste-y (om/get-state owner :selection-image) false))
         (clear-selection-state owner)
         (om/transact! app
           [:main-app :undo-history]

              blit-x (- doc-x offset-x)
              blit-y (- doc-y offset-y)]
          (clear-preview-canvas)
          (set! (.-fillStyle preview-context) (get-in @app [:tools :paint-color]))
          (when (not selection-was-pasted)
            (.fillRect preview-context
               (* x1 zoom-factor)

;; Pro: Learned a bit about clojure list comprehensions
;; Con: This file is turning into something like a little monster

(defn assoc-map [img-vector indices-to-colors paste-transparent-pixels]
  (loop [img img-vector
         keys-to-assoc (vec (keys indices-to-colors))]
    (if (empty? keys-to-assoc)
