From 3162f939152aa810b6a67a978005db0572be08a7 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Thu, 19 Oct 2023 14:13:54 -0400
Subject: [PATCH] Better record comparison

---
 gedcom | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gedcom b/gedcom
index b173852..711665c 100755
--- a/gedcom
+++ b/gedcom
@@ -7909,7 +7909,7 @@ sub Gedcom::Individual::relationship_up
 	unless(@myancestors) {
 		@myancestors = $self->ancestors();
 	}
-	if($me && ($self eq $me)) {
+	if($me && ($self->xref() eq $me->xref())) {
 		unless(@myancestors) {
 			@myancestors = $me->ancestors();
 		}
@@ -8568,7 +8568,7 @@ sub Gedcom::Individual::relationship_up
 					my $myfather = $self->father();
 					my $mymother = $self->mother();
 					if($myfather && (stepsabove($myfather, $person2, 0) > 0)) {
-						if($me && ($self eq $me)) {
+						if($me && ($self->xref() eq $me->xref())) {
 							$rc .= i18n(" on your father's side");
 						} else {
 							$rc .= ' on ' .
@@ -8576,7 +8576,7 @@ sub Gedcom::Individual::relationship_up
 								" father's side";
 						}
 					} elsif($mymother && (stepsabove($mymother, $person2, 0) > 0)) {
-						if($me && ($self eq $me)) {
+						if($me && ($self->xref() eq $me->xref())) {
 							$rc .= i18n(" on your mother's side");
 						} else {
 							$rc .= ' on ' .
@@ -8601,7 +8601,7 @@ sub Gedcom::Individual::relationship_down
 	my $other = shift;
 	my @descendant;
 
-	if($me && ($self eq $me)) {
+	if($me && ($self->xref() eq $me->xref())) {
 		unless(@mydescendants) {
 			@mydescendants = $me->descendants();
 		}