--- a/RadioButton.st	Wed Aug 06 11:34:34 2008 +0200
+++ b/RadioButton.st	Wed Aug 06 11:36:00 2008 +0200
@@ -391,6 +391,7 @@
 
 roundOffForm
     RoundOffForm isNil ifTrue:[
+thisContext fullPrintAll.
         self updateStyleCache.
     ].
     ^ RoundOffForm
@@ -422,6 +423,7 @@
 
 roundOnForm
     RoundOnForm isNil ifTrue:[
+thisContext fullPrintAll.
         self updateStyleCache.
     ].
     ^ RoundOnForm
@@ -472,6 +474,7 @@
 
     |l f|
 
+thisContext fullPrintAll.
     DefaultFont := StyleSheet fontAt:'label.font'.                   
     DefaultButtonStyle := StyleSheet at:#'radioButton.style'.
     l := -1.
@@ -880,5 +883,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.39 2008-08-06 09:34:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.40 2008-08-06 09:36:00 cg Exp $'
 ! !