diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index df3529b49f..4d5d74e58f 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -27,7 +27,8 @@
 	   "private/gdi.ss"
 	   "private/snipfile.ss"
 	   "private/repl.ss"
-	   "private/afm.ss")
+	   "private/afm.ss"
+           "private/dynamic.ss")
 
   ;; Initialize AFM/PS:
   (wx:set-ps-procs
diff --git a/collects/mred/private/dynamic.ss b/collects/mred/private/dynamic.ss
new file mode 100644
index 0000000000..9e34b14dd3
--- /dev/null
+++ b/collects/mred/private/dynamic.ss
@@ -0,0 +1,7 @@
+#lang scheme/base
+
+;; This module is for use by scheme/gui/dynamic.
+;; It is required by mred/mred so that it gets carried
+;; along when mred/mred is attached to a new namespace.
+
+(dynamic-require ''#%mred-kernel #f)
diff --git a/collects/scheme/gui/dynamic.ss b/collects/scheme/gui/dynamic.ss
index a107929f6e..82f310af74 100644
--- a/collects/scheme/gui/dynamic.ss
+++ b/collects/scheme/gui/dynamic.ss
@@ -5,7 +5,7 @@
 
 (define (gui-available?)
   (with-handlers ([exn:fail? (lambda (exn) #f)])
-    (dynamic-require ''#%mred-kernel #f)
+    (dynamic-require 'mred/private/dynamic #f)
     #t))
 
 (define-namespace-anchor anchor)