--- a/Point.st	Tue May 07 11:57:14 1996 +0200
+++ b/Point.st	Tue May 07 12:19:36 1996 +0200
@@ -217,9 +217,21 @@
     |p|
 
     p := aPoint asPoint.
-    x >= (p x) ifTrue:[^ false].
-    y >= (p y) ifTrue:[^ false].
-    ^ true
+    x < (p x) ifTrue:[
+        y < (p y) ifTrue:[^ true].
+    ].
+    ^ false
+
+    "notice the funny result if one coordinate has the same value ...
+
+     (3@4) < (4@4)    
+     (3@4) <= (4@4)    
+     (3@4) > (4@4) 
+     (4@4) >= (3@4)   
+     (4@4) > (3@4)   
+    "
+
+    "Modified: 7.5.1996 / 12:14:25 / cg"
 !
 
 = aPoint
@@ -247,9 +259,12 @@
     |p|
 
     p := aPoint asPoint.
-    x <= (p x) ifTrue:[^ false].
-    y <= (p y) ifTrue:[^ false].
-    ^ true
+    (p x) < x ifTrue:[
+        (p y) < y ifTrue:[^ true].
+    ].
+    ^ false
+
+    "Modified: 7.5.1996 / 12:11:15 / cg"
 !
 
 hash
@@ -866,6 +881,6 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.36 1996-04-27 17:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.37 1996-05-07 10:19:36 cg Exp $'
 ! !
 Point initialize!