diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 88dafb2d..75d0a259 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -378,6 +378,7 @@
       
       (define delegate<%> (interface (basic<%>) 
                             get-delegate
+			    set-delegate
                             get-delegate-style-delta
                             set-delegate-style-delta))
       (define small-style-delta (make-object style-delta% 'change-size 2))