--- a/Toggle.st	Sat Mar 08 11:55:33 2008 +0100
+++ b/Toggle.st	Sat Mar 08 12:00:09 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 Button subclass:#Toggle
@@ -553,7 +552,7 @@
         ] ifFalse:[
             val := model perform:aspectMsg withOptionalArgument:self.
         ].
-        val asBoolean ifTrue:[  "allowing nil - treat as false"
+        (val ? false) ifTrue:[  "allowing nil - treat as false"
             self turnOn
         ] ifFalse:[
             self turnOff
@@ -650,5 +649,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.52 2006-02-22 14:59:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.53 2008-03-08 11:00:09 cg Exp $'
 ! !