--- a/UserPreferences.st	Thu Apr 21 15:59:26 2016 +0200
+++ b/UserPreferences.st	Thu Apr 21 16:54:14 2016 +0200
@@ -1924,6 +1924,11 @@
     aDictionary isNil ifTrue:[^ self].
 
     self fontPreferencesChanged.
+
+    "
+     UserPreferences current fontPreferences
+     UserPreferences current fontPreferences:nil
+    "
 !
 
 fontPreferencesChanged