--- a/TextView.st	Thu Oct 13 01:00:41 2016 +0200
+++ b/TextView.st	Thu Oct 13 02:42:02 2016 +0200
@@ -2097,12 +2097,12 @@
             fontPrefs := userPrefs fontPreferences.
             fontPrefs isNil ifTrue:[ fontPrefs := newFontPrefs := Dictionary new ].
 
-            TextView defaultFont:newFont.
             fontPrefs at:#Text put:(newFont storeString).
             newFontPrefs notNil ifTrue:[ userPrefs fontPreferences:newFontPrefs ].
             userPrefs beModified.
             DebugView newDebugger.
             TextView allSubInstances do:[:v |
+                v class defaultFont:newFont.
                 v font:newFont
             ].
         ].