diff --git a/src/portuguese/MorphoPor.gf b/src/portuguese/MorphoPor.gf
index 0161ec8cc..7179c7221 100644
--- a/src/portuguese/MorphoPor.gf
+++ b/src/portuguese/MorphoPor.gf
@@ -85,9 +85,6 @@ oper
   mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs ->
     mkNoun (numForms mec mecs) ;
 
-  smartGenNoun : Str -> Gender -> Noun =
-    \vinho,g -> mkNomReg vinho ** {g = g} ;
-
   mkNomReg : Str -> Noun = \vinho -> case vinho of {
     chapéu + "-" + de + "-" + sol => mkNoun (nomChapeudesol chapéu de sol) Masc ;