set copiedObject [oo::copy $originalObject]