diff --git a/lib/src/finnish/MorphoFin.gf b/lib/src/finnish/MorphoFin.gf
index 50a9632db..84e0854fa 100644
--- a/lib/src/finnish/MorphoFin.gf
+++ b/lib/src/finnish/MorphoFin.gf
@@ -824,7 +824,7 @@ resource MorphoFin = ResFin ** open Prelude in {
       } ;
 
   vowHarmony : Str -> Str = \s -> case s of {
-    _ + ("a" | "o" | "u") + _ => "a" ;
+    _ + ("a" | "o" | "u" | "A" | "O" | "U") + _ => "a" ;
     _ => "ä"
     } ;
 
diff --git a/lib/src/italian/PhonoIta.gf b/lib/src/italian/PhonoIta.gf
index 9959d1550..6439e5506 100644
--- a/lib/src/italian/PhonoIta.gf
+++ b/lib/src/italian/PhonoIta.gf
@@ -7,11 +7,12 @@ resource PhonoIta = open Prelude in {
 
 oper 
   vocale : Strs = strs {
-    "a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y"
+    "a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y" ; "A" ; "E" ; "I" ; "O" ; "U" ; "H"
     } ;
 
   sImpuro : Strs = strs {
-    "z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv"
+    "z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" ;
+    "Z" ; "Sb" ; "Sc" ; "Sd" ; "Sf" ; "Sm" ; "Sp" ; "Sq" ; "Sr" ; "St" ; "Sv"
     } ;
 
   elision : (_,_,_ : Str) -> Str = \il, l', lo ->