--- a/ActiveHelpView.st	Mon Sep 09 18:26:08 2013 +0200
+++ b/ActiveHelpView.st	Wed Sep 11 16:03:57 2013 +0200
@@ -93,7 +93,7 @@
     helpView := self onDevice:aDevice.
 
     textView := Label onDevice:aDevice.
-    textView font:(helpView font onDevice:textView graphicsDevice).
+    textView font:(helpView font onDevice:aDevice).
     ^ (helpView withView:textView) contents:someText
 
     "
@@ -369,10 +369,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.36 2013-08-31 17:48:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.37 2013-09-11 14:03:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.36 2013-08-31 17:48:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.37 2013-09-11 14:03:57 cg Exp $'
 ! !