--- a/RadioButtonGroup.st	Mon Jul 15 16:41:38 1996 +0200
+++ b/RadioButtonGroup.st	Mon Jul 15 16:42:09 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Support'
 !
 
-!RadioButtonGroup class methodsFor:'documentation '!
+!RadioButtonGroup  class methodsFor:'documentation '!
 
 copyright
 "
@@ -190,7 +190,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.23 1996-06-05 15:07:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.24 1996-07-15 14:42:09 cg Exp $'
 ! !
 
 !RadioButtonGroup methodsFor:'accessing'!
@@ -234,6 +234,8 @@
 !RadioButtonGroup methodsFor:'adding / removing'!
 
 add:aRadioButton
+    |c|
+
     super add:aRadioButton.
 
     "
@@ -247,11 +249,18 @@
      creating a valueChannel, if there is none yet.
     "
     valueChannel isNil ifTrue:[
-	valueChannel := 0 asValue
+        valueChannel := 0 asValue
     ].
     aRadioButton isOn ifTrue:[valueChannel value:self size].
     aRadioButton model:self; aspectMessage:#queryFrom:; changeMessage:#elementChanged:from:.
 
+    (c := aRadioButton controller) notNil ifTrue:[
+        c beRadioButton
+    ] ifFalse:[    
+        aRadioButton controller:(RadioButtonController new).
+    ]
+
+    "Modified: 15.7.1996 / 14:07:19 / cg"
 ! !
 
 !RadioButtonGroup methodsFor:'update'!