--- a/Point.st	Sat Nov 13 00:22:32 1999 +0100
+++ b/Point.st	Sat Nov 13 12:12:12 1999 +0100
@@ -222,6 +222,14 @@
     "Modified: 23.4.1996 / 16:00:18 / cg"
 ! !
 
+!Point methodsFor:'Compatibility - Squeak'!
+
+asFloatPoint
+    "Squeak mimicri return the receiver as Point - this is the receiver"
+
+    ^ self
+! !
+
 !Point methodsFor:'accessing'!
 
 x
@@ -1044,6 +1052,6 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.51 1999-10-10 12:40:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.52 1999-11-13 11:12:12 cg Exp $'
 ! !
 Point initialize!