--- a/Point.st	Sat Sep 23 16:34:09 2017 +0200
+++ b/Point.st	Wed Sep 27 15:58:44 2017 +0200
@@ -371,18 +371,19 @@
 !
 
 > aPoint
-    "return true if  the receiver is below and to the right
+    "return true if the receiver is below and to the right
      of the argument, aPoint"
 
     |p|
 
     p := aPoint asPoint.
     (p x) < x ifTrue:[
-	(p y) < y ifTrue:[^ true].
+        (p y) < y ifTrue:[^ true].
     ].
     ^ false
 
-    "Modified: 7.5.1996 / 12:11:15 / cg"
+    "Modified: / 07-05-1996 / 12:11:15 / cg"
+    "Modified (comment): / 27-09-2017 / 15:55:14 / mawalch"
 !
 
 hash