diff --git a/src/slovenian/NounSlv.gf b/src/slovenian/NounSlv.gf
index 879cdf7a..02aef980 100644
--- a/src/slovenian/NounSlv.gf
+++ b/src/slovenian/NounSlv.gf
@@ -29,6 +29,12 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv,Prelude in {
       isPron = True
     } ;
 
+    AdvNP np adv = {
+      s = \\c => np.s ! c ++ adv.s ;
+      a = np.a ;
+      isPron = False  -- KA: guessed
+    } ;
+
     DetQuant quant num = {
       s    = \\g,c => quant.s ! g ! c ! (numAgr2num ! num.n) ++ num.s ! g ! c;
       spec = quant.spec ;