--- a/Point.st	Wed Jul 09 21:02:52 2003 +0200
+++ b/Point.st	Thu Jul 10 13:54:27 2003 +0200
@@ -141,16 +141,26 @@
      if no point can be read."
 
     ^ [
-        |str newX newY|
+        |str newX newY hasParen|
 
         str := aStringOrStream readStream.
-
+        str skipSeparators.
+        (hasParen := str peek) == $( ifTrue:[
+            str next.   
+        ].
         newX := Number readFrom:str onError:nil.
         newX notNil ifTrue:[
             (str skipSeparators == $@) ifTrue:[
                 str  next.
                 newY := Number readFrom:str onError:nil.
                 newY notNil ifTrue:[
+                    hasParen ifTrue:[
+                        str skipSeparators.
+                        str peek == $) ifTrue:[
+                            str next.   
+                        ]
+                    ].
+
                     ^ self x:newX y:newY
                 ]
             ]
@@ -1142,7 +1152,7 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.60 2003-06-21 10:42:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.61 2003-07-10 11:54:27 cg Exp $'
 ! !
 
 Point initialize!