diff --git a/lib/src/slovenian/AdjectiveSlv.gf b/lib/src/slovenian/AdjectiveSlv.gf
index e455e6c6e..b42b77e10 100644
--- a/lib/src/slovenian/AdjectiveSlv.gf
+++ b/lib/src/slovenian/AdjectiveSlv.gf
@@ -17,5 +17,9 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
         }
       } ;
 
+    AdAP ada ap = {
+      s = \\spec,g,c,n => ada.s ++ ap.s ! spec ! g ! c ! n
+      } ;
+
     AdvAP ap adv = {s = \\spec,g,c,n => ap.s ! spec ! g ! c ! n ++ adv.s} ;
 }
diff --git a/lib/src/slovenian/ParadigmsSlv.gf b/lib/src/slovenian/ParadigmsSlv.gf
index 3e686b7d0..a9a1bd066 100644
--- a/lib/src/slovenian/ParadigmsSlv.gf
+++ b/lib/src/slovenian/ParadigmsSlv.gf
@@ -287,6 +287,8 @@ oper
 
   mkAdV : Str -> AdV = \s -> lin AdV {s=s} ;
 
+  mkAdA : Str -> AdA = \s -> lin AdA {s=s} ;
+
   mkPron : (_,_,_,_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
     \nom,acc,gen,dat,loc,instr,poss,g,n,p ->
     lin Pron {s = table {