--- a/Point.st	Wed Jul 14 23:43:55 2004 +0200
+++ b/Point.st	Fri Jul 16 15:35:43 2004 +0200
@@ -759,10 +759,7 @@
      the argument, aPoint.  That is, the two points are
      multiplied and the coordinates of the result summed."
 
-    |temp|
-
-    temp := self * aPoint.
-    ^ temp x abs + temp y abs
+    ^ (x * aPoint x) + (y * aPoint y)
 !
 
 grid:gridPoint
@@ -1147,7 +1144,7 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.65 2004-07-14 14:44:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.66 2004-07-16 13:35:43 cg Exp $'
 ! !
 
 Point initialize!