--- a/FramedBox.st	Fri Mar 19 12:37:30 2010 +0100
+++ b/FramedBox.st	Fri Mar 19 13:07:20 2010 +0100
@@ -698,7 +698,7 @@
     "compute the boxes preferredExtent from the components' sizes.
      Redefined to add space for the frame to the default extent" 
 
-    |sep|
+    |sep sep2|
 
     "/ If I have an explicit preferredExtent..
     explicitExtent notNil ifTrue:[
@@ -711,12 +711,12 @@
     ].
 
     sep := font heightOn:device.
-"/    sep := sep + sep.
+    sep2 := sep + sep.
 
     true "showFrame" ifFalse:[
-        ^ super preferredExtent + (0 @ sep)
+        ^ super preferredExtent + (0 @ sep2)
     ].
-    ^ super preferredExtent + (sep @ sep)
+    ^ super preferredExtent + (sep2 @ sep2)
 
     "Modified: 3.1.1997 / 22:02:56 / cg"
 !
@@ -765,9 +765,9 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.53 2009-12-07 14:49:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.54 2010-03-19 12:07:20 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.53 2009-12-07 14:49:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.54 2010-03-19 12:07:20 ca Exp $'
 ! !