--- a/ListView.st	Sat Nov 10 00:30:11 2018 +0100
+++ b/ListView.st	Sat Nov 10 00:32:00 2018 +0100
@@ -1665,7 +1665,7 @@
         ^ self error:'nil font' mayProceed:true
     ].
     gc font ~~ aFont ifTrue:[
-        preferredExtent := nil.
+        self flushCachedPreferredExtent.
         widthOfWidestLine := nil. "/ i.e. unknown
         super font:aFont.
         self getFontParameters.
@@ -1682,7 +1682,7 @@
     ]
 
     "Modified: / 25-07-2012 / 12:01:36 / cg"
-    "Modified: / 27-10-2018 / 22:58:23 / Claus Gittinger"
+    "Modified: / 09-11-2018 / 20:16:05 / Claus Gittinger"
 !
 
 fontHeight:pixels