diff --git a/gui-lib/mred/private/wx/common/cursor.rkt b/gui-lib/mred/private/wx/common/cursor.rkt index f8aa09ac..0eae8b48 100644 --- a/gui-lib/mred/private/wx/common/cursor.rkt +++ b/gui-lib/mred/private/wx/common/cursor.rkt @@ -34,9 +34,9 @@ [(integer-in 0 15) [hot-spot-x 0]] [(integer-in 0 15) [hot-spot-y 0]]) (unless (is-16x16? image) - (raise-type-error (init-name 'cursor%) '|bitmap (16x16 monochrome)| image)) + (raise-type-error (init-name 'cursor%) "bitmap (16x16 monochrome)" image)) (unless (is-16x16? mask) - (raise-type-error (init-name 'cursor%) '|bitmap (16x16 monochrome)| mask)) + (raise-type-error (init-name 'cursor%) "bitmap (16x16 monochrome)" mask)) (let ([c (new cursor-driver%)]) (send c set-image image mask hot-spot-x hot-spot-y) c)]