diff --git a/collects/typed/framework/framework.ss b/collects/typed/framework/framework.ss
index fab2f91d..513cfa1d 100644
--- a/collects/typed/framework/framework.ss
+++ b/collects/typed/framework/framework.ss
@@ -1,6 +1,7 @@
 #lang typed-scheme
              
-(require (only-in typed/mred/mred dt require/typed/provide Font%))
+(require typed/private/utils
+         (only-in typed/mred/mred Font%))
 
 (dt Style-List% (Class () 
                        ()
diff --git a/collects/typed/mred/mred.ss b/collects/typed/mred/mred.ss
index 03f60efb..80984c28 100644
--- a/collects/typed/mred/mred.ss
+++ b/collects/typed/mred/mred.ss
@@ -1,14 +1,6 @@
 #lang typed-scheme
 
-(define-syntax-rule (dt nm t)
-  (begin (define-type-alias nm t) (provide nm)))
-
-(define-syntax-rule (require/typed/provide lib [nm t] ...)
-  (begin
-    (require/typed lib [nm t] ...)
-    (provide nm ...)))
-
-(provide dt require/typed/provide)
+(require typed/private/utils)
 
 (dt Bitmap% (Class (Number Number Boolean)
                    () 
diff --git a/collects/typed/private/utils.ss b/collects/typed/private/utils.ss
new file mode 100644
index 00000000..c1fdbea7
--- /dev/null
+++ b/collects/typed/private/utils.ss
@@ -0,0 +1,11 @@
+#lang typed-scheme
+
+(define-syntax-rule (dt nm t)
+  (begin (define-type-alias nm t) (provide nm)))
+
+(define-syntax-rule (require/typed/provide lib [nm t] ...)
+  (begin
+    (require/typed lib [nm t] ...)
+    (provide nm ...)))
+
+(provide dt require/typed/provide)