--- a/ActiveHelpView.st	Thu Jul 10 21:45:59 2014 +0200
+++ b/ActiveHelpView.st	Fri Jul 11 15:31:21 2014 +0200
@@ -12,10 +12,10 @@
 "{ Package: 'stx:libview2' }"
 
 View subclass:#ActiveHelpView
-        instanceVariableNames:'myView shapeStyle controllingHelpListener'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-Help'
+	instanceVariableNames:'myView shapeStyle controllingHelpListener'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Help'
 !
 
 !ActiveHelpView class methodsFor:'documentation'!
@@ -223,7 +223,11 @@
         shapeStyle := styleSheet at:#'activeHelp.style' default:nil.
     ].
 
-    defaultFont := styleSheet fontAt:#'activeHelp.font' default:nil.
+    "/ ActiveHelpView defaultFont
+    defaultFont := self class defaultFont.
+    defaultFont isNil ifTrue:[
+        defaultFont := styleSheet fontAt:#'activeHelp.font' default:nil.
+    ].
     defaultFont notNil ifTrue:[
         self font:defaultFont
     ].
@@ -402,10 +406,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.46 2014-03-23 01:18:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.47 2014-07-11 13:31:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.46 2014-03-23 01:18:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.47 2014-07-11 13:31:21 cg Exp $'
 ! !