--- gforth/objects.fs	1999/07/08 09:46:42	1.16
+++ gforth/objects.fs	1999/07/24 13:07:19	1.17
@@ -494,6 +494,8 @@ method print ( object -- ) \ objects- ob
 \g Print the object. The method for the class @var{object} prints
 \g the address of the object and the address of its class.
 
+selector equal ( object1 object2 -- flag )
+
 end-class object ( -- class ) \ objects- objects
 \g the ancestor of all classes.