diff --git a/collects/mred/private/wx/gtk/clipboard.rkt b/collects/mred/private/wx/gtk/clipboard.rkt index 64f9edbd..4141031c 100644 --- a/collects/mred/private/wx/gtk/clipboard.rkt +++ b/collects/mred/private/wx/gtk/clipboard.rkt @@ -249,11 +249,12 @@ l))))) (define/public (get-text-data) - (wait-request-backref - (atomically - (let-values ([(l backref) (make-request-backref)]) - (gtk_clipboard_request_text cb backref) - l)))) + (or (wait-request-backref + (atomically + (let-values ([(l backref) (make-request-backref)]) + (gtk_clipboard_request_text cb backref) + l))) + "")) (define/public (get-bitmap-data) (wait-request-backref