From 4c55592af40d0e475358be72022303dab0ee624d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 1 Apr 2026 15:41:22 +0200
Subject: [PATCH] =?UTF-8?q?make=20it=20not=20crash=20on=20mkPN=20"J=C3=B3s?=
 =?UTF-8?q?ef=C3=ADna"=20feminine?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/icelandic/ParadigmsIce.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/icelandic/ParadigmsIce.gf b/src/icelandic/ParadigmsIce.gf
index d888506d..fd3cad68 100644
--- a/src/icelandic/ParadigmsIce.gf
+++ b/src/icelandic/ParadigmsIce.gf
@@ -810,7 +810,7 @@ resource ParadigmsIce = open
 
 		regPN : Str -> Gender -> PN = \name,g -> case <name,g> of {
 				<base + "i",Masc>	=> lin PN {s = caseList name (base + "a") (base + "a") (base + "a") ; g = Masc} ;
-				<base + "a",Masc>	=> lin PN {s = caseList name (base + "u") (base + "u") (base + "u") ; g = Masc} ;
+				<base + "a",g>	=> lin PN {s = caseList name (base + "u") (base + "u") (base + "u") ; g = g} ;
 				<base + "ur",Masc>	=> lin PN {s = caseList name base (base + "i") (base + "s") ; g = Masc} ;
 				<base + "l",Masc>	=> lin PN {s = caseList name name name (name + "s") ; g = Masc} ;
 				<base + "s",Masc>	=> lin PN {s = caseList name name (name + "i") (name + "ar") ; g = Masc} ;