--- a/ActiveHelpView.st	Sat Aug 31 19:39:53 2013 +0200
+++ b/ActiveHelpView.st	Sat Aug 31 19:42:49 2013 +0200
@@ -339,18 +339,17 @@
 resizeToFit
     "resize myself to make the component view fit"
 
-    |h w pref|
+    |h w pref bw|
 
     pref := myView preferredExtent.
     shapeStyle == #cartoon ifTrue:[
         h := pref y. 
         w := pref x. 
-        self extent:((w / 0.85) rounded asInteger)
-                     @ 
-                    ((h * 4) rounded asInteger)
+        self extent:((w / 0.85) @ (h * 4)) rounded.
     ] ifFalse:[
-        self extent:(pref + (self borderWidth * 2)).
-        myView origin:(self borderWidth asPoint).
+        bw := self borderWidth.
+        self extent:(pref + (bw * 2)).
+        myView origin:(bw asPoint).
     ]
 
     "Modified: 28.6.1997 / 14:23:49 / cg"
@@ -369,10 +368,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.34 2013-08-31 11:57:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.35 2013-08-31 17:42:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.34 2013-08-31 11:57:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.35 2013-08-31 17:42:49 cg Exp $'
 ! !