--- a/Object.st	Tue Jun 29 16:21:17 2004 +0200
+++ b/Object.st	Wed Jun 30 11:42:10 2004 +0200
@@ -9106,6 +9106,12 @@
 
 !Object methodsFor:'visiting'!
 
+acceptVisitor:aVisitor
+    "double-dispatch onto a Visitor."
+
+    ^ self acceptVisitor:aVisitor with:nil
+!
+
 acceptVisitor:aVisitor with:aParameter
     "double-dispatch onto a Visitor.
      Subclasses redefine this"
@@ -9194,7 +9200,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.503 2004-06-21 08:24:53 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.504 2004-06-30 09:42:10 cg Exp $'
 ! !
 
 Object initialize!