--- a/Point.st	Fri Dec 20 04:27:46 2019 +0000
+++ b/Point.st	Mon Dec 23 14:12:33 2019 +0100
@@ -238,7 +238,8 @@
 !Point methodsFor:'Compatibility-Squeak'!
 
 adhereTo: aRectangle
-    "If the receiver lies outside aRectangle, return the nearest point on the boundary of the rectangle, otherwise return self."
+    "If the receiver lies outside aRectangle, return the nearest point on the boundary of the rectangle, 
+     otherwise return self."
 
     (aRectangle containsPoint: self) ifTrue: [^ self].
     ^ ((x max: aRectangle left) min: aRectangle right)
@@ -247,6 +248,8 @@
 !
 
 area
+    "compute the area of a rectangle with myself taken as extent"
+
     ^ x * y
 
     "Created: / 29-05-2007 / 09:57:57 / cg"