Fix spacing when married a relative

nigelhorne · Jan 12, 2025 · c41a0ed · c41a0ed
1 parent 9163c7e
commit c41a0ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -3926,8 +3926,8 @@ sub print_person
 
 					# Note if this person married a relative
 					if(my $srelationship = $person->relationship($spouses[0])) {
-						$phrase->append($person->possessive())
-							->append("$srelationship ");
+						$phrase->append(lcfirst($person->possessive()))
+							->append(" $srelationship ");
 					}
 
 					if($haveprintedspousename) {