From 47c66b71eb0bb85552fe8a07f1ccef42927b9899 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 22 Nov 2009 15:43:15 +0000
Subject: [PATCH] fix pasteboard% 'remove' (merge to 4.2.3)

svn: r16963
---
 collects/mred/private/wxme/pasteboard.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss
index b2755831ee..00d84ef3e7 100644
--- a/collects/mred/private/wxme/pasteboard.ss
+++ b/collects/mred/private/wxme/pasteboard.ss
@@ -770,7 +770,7 @@
              (snip-set-admin del-snip #f)
              (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) CAN-DISOWN))
              (unless del
-               (when (send del-snip get-admin)
+               (unless (send del-snip get-admin)
                  (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) OWNED))))
              
              (unless s-modified?