--- a/CheckToggle.st	Wed Oct 21 16:27:58 2009 +0200
+++ b/CheckToggle.st	Wed Oct 21 16:28:01 2009 +0200
@@ -685,11 +685,14 @@
     explicitExtent notNil ifTrue:[
         ^ explicitExtent
     ].
-
     "/ If I have a cached preferredExtent value..
     preferredExtent notNil ifTrue:[
         ^ preferredExtent
     ].
+    "/ If I have a frozen extent value...
+    fixSize ifTrue:[
+        ^ self extent
+    ].
 
     pref := super preferredExtent.
     LabelOverMargin ifTrue:[
@@ -777,5 +780,9 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.66 2009-02-17 20:12:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.67 2009-10-21 14:28:01 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.67 2009-10-21 14:28:01 cg Exp $'
 ! !