--- a/GraphicsContext.st	Tue Feb 05 15:17:49 2008 +0100
+++ b/GraphicsContext.st	Tue Feb 05 19:37:02 2008 +0100
@@ -1713,8 +1713,8 @@
 displayRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn
     |right bottom wC hC wHalf hHalf|
 
-    right := left + width.
-    bottom := top + height.
+    right := left + width-1.
+    bottom := top + height-1.
 
     wC := wCorn.
     hC := hCorn.
@@ -2400,7 +2400,7 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.112 2007-05-31 15:17:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.113 2008-02-05 18:37:02 cg Exp $'
 ! !
 
 GraphicsContext initialize!