diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index b40f0f02..39e60cd4 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -30,7 +30,7 @@
               [-text-mode<%> text-mode<%>])
       
       (define -text<%>
-        (interface ()
+        (interface (text:basic<%>)
           start-colorer
           stop-colorer
           force-stop-colorer
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 8ef9853d..0c27676c 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -307,7 +307,7 @@
       (define-struct string/pos (string pos))
       
       (define -text<%>
-        (interface ()
+        (interface (text:basic<%> mode:host-text<%> color:text<%>)
           get-limit
           balance-parens
           tabify-on-return?