--- a/Image.st	Sun Oct 30 14:33:44 2016 +0100
+++ b/Image.st	Wed Nov 02 14:49:24 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -14982,10 +14980,10 @@
     isLeft := leftOrRight sameAs:#left.
     isLeft ifTrue:[
         workPoint := (xRun - 1)@yRun.
-        [(
-            (tempForm pixelAtX:workPoint x y:workPoint y) == 0 and:[
-            (tempForm pixelAtX:workPoint x y:workPoint y + additionalY) == 1]) and:[
-            (tempForm pixelAtX:workPoint x - 1 y:workPoint y + additionalY) == 1]
+        [
+            ((tempForm pixelAtX:workPoint x y:workPoint y) == 0)
+            and:[ ((tempForm pixelAtX:workPoint x y:workPoint y + additionalY) == 1) 
+            and:[ ((tempForm pixelAtX:workPoint x - 1 y:workPoint y + additionalY) == 1) ]]
         ] whileTrue:[
             startX := workPoint x.
             endX isNil ifTrue:[endX := workPoint x].
@@ -14993,10 +14991,10 @@
         ].
     ] ifFalse:[
         workPoint := (xRun + 1)@yRun.
-        [(
-            (tempForm pixelAtX:workPoint x y:workPoint y) == 0 and:[
-            (tempForm pixelAtX:workPoint x y:workPoint y + additionalY) == 1]) and:[
-            (tempForm pixelAtX:workPoint x + 1 y:workPoint y + additionalY) == 1]
+        [
+            ((tempForm pixelAtX:workPoint x y:workPoint y) == 0)
+            and:[ ((tempForm pixelAtX:workPoint x y:workPoint y + additionalY) == 1) 
+            and:[ ((tempForm pixelAtX:workPoint x + 1 y:workPoint y + additionalY) == 1) ]]
         ] whileTrue:[
             endX := workPoint x.
             startX isNil ifTrue:[startX := workPoint x].
@@ -15053,10 +15051,10 @@
     isBottom := bottomOrTop sameAs:#bottom.
     isBottom ifTrue:[
         workPoint := xRun@(yRun + 1).
-        [(
-            (tempForm pixelAtX:workPoint x y:workPoint y) == 0 and:[
-            (tempForm pixelAtX:workPoint x + additionalX y:workPoint y) == 1]) and:[
-            (tempForm pixelAtX:workPoint x + additionalX y:workPoint y + 1) == 1]
+        [
+            ((tempForm pixelAtX:workPoint x y:workPoint y) == 0) 
+            and:[ ((tempForm pixelAtX:workPoint x + additionalX y:workPoint y) == 1) 
+            and:[ ((tempForm pixelAtX:workPoint x + additionalX y:workPoint y + 1) == 1) ]]
         ] whileTrue:[
             endY := workPoint y.
             startY isNil ifTrue:[startY := workPoint y].
@@ -15064,10 +15062,10 @@
         ].
     ] ifFalse:[
         workPoint := xRun@(yRun - 1).
-        [(
-            (tempForm pixelAtX:workPoint x y:workPoint y) == 0 and:[
-            (tempForm pixelAtX:workPoint x + additionalX y:workPoint y) == 1]) and:[
-            (tempForm pixelAtX:workPoint x + additionalX y:workPoint y - 1) == 1]
+        [
+            ((tempForm pixelAtX:workPoint x y:workPoint y) == 0) 
+            and:[ ((tempForm pixelAtX:workPoint x + additionalX y:workPoint y) == 1) 
+            and:[ ((tempForm pixelAtX:workPoint x + additionalX y:workPoint y - 1) == 1) ]]
         ] whileTrue:[
             startY := workPoint y.
             endY isNil ifTrue:[endY := workPoint y].