--- a/DeviceGraphicsContext.st	Tue Dec 02 19:18:48 2014 +0100
+++ b/DeviceGraphicsContext.st	Tue Dec 02 23:08:36 2014 +0100
@@ -1671,19 +1671,19 @@
     |newPolygon|
 
     gcId isNil ifTrue:[
-	self initGC
+        self initGC
     ].
     transformation notNil ifTrue:[
-	newPolygon := aPolygon collect:[:point | transformation applyTo:point].
+        newPolygon := aPolygon collect:[:point | transformation applyTo:point].
     ] ifFalse:[
-	newPolygon := aPolygon
+        newPolygon := aPolygon
     ].
-    (newPolygon findFirst:[:p |
-	(p isPoint not
-	or:[(p x class ~~ SmallInteger)
-	or:[(p y class ~~ SmallInteger)]])
-     ]) ~~ 0 ifTrue:[
-	newPolygon := newPolygon collect:[:p | p asPoint rounded]
+    (newPolygon contains:[:p |
+        (p isPoint not
+        or:[(p x class ~~ SmallInteger)
+        or:[(p y class ~~ SmallInteger)]])
+     ]) ifTrue:[
+        newPolygon := newPolygon collect:[:p | p asPoint rounded]
     ].
 
     device displayPolygon:newPolygon in:drawableId with:gcId
@@ -4142,11 +4142,11 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.144 2014-11-26 23:54:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.145 2014-12-02 22:08:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.144 2014-11-26 23:54:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.145 2014-12-02 22:08:36 cg Exp $'
 ! !