For best readability, VOSS source code assumes Tabs expanded to four spaces; this can be done in a Smalltalk workspace using String>>voWithTabsExpanded.

Regards
John

If the receiver and anObject are both VORefs, but with different vid and/or voManager they still could be equal, although different virtual objects.

| a b |
a := (Array with: ‘hello’ with: ‘world’) madeVirtual.
b := (Array with: ‘hello’ with: ‘world’) madeVirtual.
a voIsEqualTo: b => true
 
VORefPublic>>voAreYou: tests logical identity, which would returns false in the above.

I’m looking into the incorrect rendering of your post.

John

>>>

voIsEqualTo: Hello John,I´m not sure but should the check, if two virtual objects  are the same answer false in the case of anObjct is a VORefs and their vid is not the same? (Assuming the voManger is the same) So the code should look like this? 
voIsEqualTo: anObject
"Private - Answer true if the receiver’s virtual

object and anObject are equal, else answer false.
anObject may or may not be a VOR."
  | myObject bObject |
  self == anObject ifTrue: [^true]. "the same VOR"
  anObject isVOR
  ifTrue:
                [ ( id = anObject vid and:
                               [self voManager == anObject voManager]
                  )
                  ifTrue: [^true].  "logically the same object"
                  ^false
                ].
 
  myObject := self voPeek.
  bObject := anObject voPeek. "could just be anObject"
  myObject == bObject
                ifTrue: [^true]. "the same object"
 
 ^myObject = bObject
Greetings Thomas

<<<