diff --git a/collects/racket/gui/dynamic.rkt b/collects/racket/gui/dynamic.rkt index 9340639133..7b6aaed689 100644 --- a/collects/racket/gui/dynamic.rkt +++ b/collects/racket/gui/dynamic.rkt @@ -6,6 +6,8 @@ (define (gui-available?) (and (zero? (variable-reference->phase (#%variable-reference))) (with-handlers ([exn:fail? (lambda (exn) #f)]) + ;; Fails if mred/private/dynamic is not instantiated: + (module->language-info 'mred/private/dynamic #f) (eq? (dynamic-require 'mred/private/dynamic 'kernel-initialized) 'done))))