diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 4b26f0b1..f7a6ad1c 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1721,6 +1721,7 @@
         (send define-regexp-text set-value (or (object-name (caddr pref)) ""))
         (send lambda-regexp-text set-value (or (object-name (cadddr pref)) ""))))
     (preferences:add-callback 'framework:tabify (λ (p v) (update-gui v)))
+    (update-gui (preferences:get 'framework:tabify))
     main-panel)
       
       )