--- a/ActiveHelpView.st	Tue Aug 09 04:37:32 2016 +0200
+++ b/ActiveHelpView.st	Tue Aug 09 12:35:05 2016 +0200
@@ -109,7 +109,7 @@
         textShown := textShown withoutTrailingSeparators.
     ].    
     textView := Label onDevice:aDevice.
-    textView font:(helpView font onDevice:aDevice). 
+    textView font:(helpView deviceFont). 
     ^ (helpView withView:textView) contents:textShown
 
     "