--- a/ProtoObject.st	Wed Jul 04 00:46:40 2018 +0200
+++ b/ProtoObject.st	Wed Jul 04 00:47:18 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -852,6 +850,17 @@
     ^ true
 ! !
 
+!ProtoObject methodsFor:'visiting'!
+
+acceptVisitor:aVisitor with:aParameter
+    "double-dispatch via visitObject:with: into a Visitor.
+     Subclasses redefine this to pass their type in the message name (i.e. visitXXX:)"
+
+    ^ aVisitor visitProtoObject:self with:aParameter
+
+    "Created: / 04-07-2018 / 00:41:38 / Claus Gittinger"
+! !
+
 !ProtoObject class methodsFor:'documentation'!
 
 version