--- a/DeviceGraphicsContext.st	Tue Feb 10 14:18:23 2015 +0100
+++ b/DeviceGraphicsContext.st	Tue Feb 10 19:09:32 2015 +0100
@@ -587,10 +587,10 @@
     (clipRect = newLogicalClipRect) ifTrue:[^ self].
 
     gcId notNil ifTrue:[
-        x := aRectangleOrNil left.
-        y := aRectangleOrNil top.
-        w := aRectangleOrNil width.
-        h := aRectangleOrNil height.
+        x := aRectangleOrNil left rounded.
+        y := aRectangleOrNil top rounded.
+        w := aRectangleOrNil width rounded.
+        h := aRectangleOrNil height rounded.
         device setClipX:x y:y width:w height:h in:drawableId gc:gcId
     ].
     clipRect := newLogicalClipRect
@@ -4223,11 +4223,11 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.149 2015-01-22 14:27:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.150 2015-02-10 18:09:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.149 2015-01-22 14:27:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.150 2015-02-10 18:09:32 stefan Exp $'
 ! !