--- a/Point.st	Tue Apr 22 10:47:20 1997 +0200
+++ b/Point.st	Tue Apr 22 13:52:28 1997 +0200
@@ -722,15 +722,15 @@
     "return the receiver's radius in a polar coordinate system.
      (i.e. the length of a vector from 0@0 to the receiver)"
 
-    ^ (self dotProduct:self) sqrt
+    ^ ((x*x) + (y*y)) sqrt
 
     "
-     (1@1) r    
-     (2@1) r     
-     (2@0) r    
-     (0@2) r    
-     (-2@-2) r    
-     (2@2) r    
+     (1@1) r 
+     (2@1) r  
+     (2@0) r 
+     (0@2) r 
+     (-2@-2) r 
+     (2@2) r  
     "
 !
 
@@ -939,6 +939,6 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.41 1997-04-01 22:15:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.42 1997-04-22 11:52:28 cg Exp $'
 ! !
 Point initialize!