diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss
index d76cd944d0..3c0b3537f7 100644
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@@ -350,7 +350,7 @@
           (send style set-delta delta)
           (send standard-style-list new-named-style "Standard"
                 (send standard-style-list find-or-create-style
-                      (send standard-style-list find-named-style "Basic")
+                      (send standard-style-list basic-style)
                       delta)))))
   
   (let ([delta (make-object style-delta%)]
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 8f3f76e4c4..e03702d6a8 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -771,7 +771,7 @@ WARNING: printf is rebound in the body of the unit to always
     (define/private (get-font)
       (let* ([style-list (get-style-list)]
              [std (or (send style-list find-named-style "Standard")
-                      (send style-list find-named-style "Basic"))])
+                      (send style-list basic-style))])
         (send std get-font)))
     
     (super-new)))
@@ -2395,13 +2395,13 @@ WARNING: printf is rebound in the body of the unit to always
                    (let ([style-list (get-style-list)])
                      (or (send style-list find-named-style sd)
                          (send style-list find-named-style "Standard")
-                         (send style-list find-named-style "Basic")))]
+                         (send style-list basic-style)))]
                   [sd
                    (let* ([style-list (get-style-list)] 
                           [std (send style-list find-named-style "Standard")])
                      (if std
                          (send style-list find-or-create-style std sd)
-                         (let ([basic (send style-list find-named-style "Basic")])
+                         (let ([basic (send style-list basic-style)])
                            (send style-list find-or-create-style basic sd))))]))]
              [out-style (add-standard (get-out-style-delta))]
              [err-style (add-standard (get-err-style-delta))]