--- a/Method.st	Fri Oct 24 10:29:01 2003 +0200
+++ b/Method.st	Fri Oct 24 10:49:06 2003 +0200
@@ -2145,7 +2145,8 @@
     ^ self parse:#'parseMethodSilent:in:' with:self mclass return:#messagesSent or:#() 
 
     "
-     (Method compiledMethodAt:#printOn:) messagesSent
+     (Method compiledMethodAt:#printOn:) messagesSent 
+     (Point compiledMethodAt:#x:) messagesSent 
     "
 !
 
@@ -2893,7 +2894,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.259 2003-10-21 20:16:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.260 2003-10-24 08:49:06 cg Exp $'
 ! !
 
 Method initialize!