--- a/RadioButtonGroup.st	Mon Mar 22 20:44:01 1999 +0100
+++ b/RadioButtonGroup.st	Mon Mar 22 22:57:33 1999 +0100
@@ -233,7 +233,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.29 1999-03-19 23:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.30 1999-03-22 21:57:33 cg Exp $'
 ! !
 
 !RadioButtonGroup class methodsFor:'helpers'!
@@ -251,13 +251,13 @@
     "/ Likewise, a true-store from the button sets the group value
     "/ to the buttons index.
 
-    adaptor getBlock:[:m | (m value == buttonValue) ]
+    adaptor getBlock:[:m | (m value = buttonValue) ]
             putBlock:[:m :onOff | 
                            onOff ifTrue:[
                                m value:buttonValue
                            ] ifFalse:[
                                 "/ support for toggles
-                                buttonValue == m value ifTrue:[
+                                buttonValue = m value ifTrue:[
                                    m value:nil 
                                 ]
                            ]