From c8b37633599a3db93099daec94ce28d399c1b696 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 19 Jul 2011 08:11:51 -0600
Subject: [PATCH] cocoa: fix image paste

 Closes PR 12028

 Merge to 5.1.2
---
 collects/mred/private/wx/cocoa/image.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mred/private/wx/cocoa/image.rkt b/collects/mred/private/wx/cocoa/image.rkt
index ac05763af8..e6b86f4bb0 100644
--- a/collects/mred/private/wx/cocoa/image.rkt
+++ b/collects/mred/private/wx/cocoa/image.rkt
@@ -134,4 +134,5 @@
              operation: #:type _int NSCompositeCopy fraction: #:type _CGFloat 1.0))
     (tellv NSGraphicsContext restoreGraphicsState)
     (CGContextRestoreGState cg)
+    (cairo_surface_mark_dirty surface)
     bm))