--- a/CheckToggle.st	Wed May 10 04:30:46 1995 +0200
+++ b/CheckToggle.st	Fri May 12 20:25:18 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.8 1995-05-03 00:28:49 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.9 1995-05-12 18:23:40 claus Exp $
 '!
 
 !CheckToggle class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.8 1995-05-03 00:28:49 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.9 1995-05-12 18:23:40 claus Exp $
 "
 !
 
@@ -193,7 +193,7 @@
 !CheckToggle methodsFor:'redrawing'!
 
 redraw
-    controller pressed ifTrue:[
+    self isOn ifTrue:[
 	logo := activeLogo.
 	super redraw
     ] ifFalse:[