--- a/CheckToggle.st	Thu Aug 03 03:35:39 1995 +0200
+++ b/CheckToggle.st	Tue Aug 08 03:07:33 1995 +0200
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.13 1995-07-23 03:01:04 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.14 1995-08-08 01:06:39 claus Exp $
 '!
 
 !CheckToggle class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.13 1995-07-23 03:01:04 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.14 1995-08-08 01:06:39 claus Exp $
 "
 !
 
@@ -200,6 +200,7 @@
     DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'.
     DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'.
 
+    DefaultCheckForm := nil.
     checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'.
     checkFileName notNil ifTrue:[
 	DefaultCheckForm := Form fromFile:checkFileName 
@@ -268,7 +269,7 @@
 
     onLevel := offLevel.
     DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].
-    DefaultPassiveLevel notNil ifTrue:[onLevel := DefaultPassiveLevel].
+    DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel].
 
     activeLogo := DefaultCheckForm on:device.
     passiveLogo := nil.