diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss index b2755831..00d84ef3 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?