--- a/TextView.st	Tue Feb 26 15:39:59 2019 +0100
+++ b/TextView.st	Fri Mar 01 11:59:17 2019 +0100
@@ -2186,7 +2186,7 @@
             fontPrefs := userPrefs fontPreferences.
             fontPrefs isNil ifTrue:[ fontPrefs := newFontPrefs := Dictionary new ].
 
-            fontPrefs at:#Text put:(newFont storeString).
+            fontPrefs at:#Text put:(newFont asFontDescription storeString).
             newFontPrefs notNil ifTrue:[ userPrefs fontPreferences:newFontPrefs ].
             userPrefs beModified.
             "/ DebugView newDebugger.
@@ -2197,7 +2197,8 @@
         ].
     ]
 
-    "Modified: 27.2.1996 / 00:53:51 / cg"
+    "Modified: / 27-02-1996 / 00:53:51 / cg"
+    "Modified: / 01-03-2019 / 11:58:50 / Claus Gittinger"
 !
 
 compareAgainst:otherText named:whatIsIt