diff --git a/lib/src/slovenian/AdjectiveSlv.gf b/lib/src/slovenian/AdjectiveSlv.gf
index 3e45e55db..f94bd37b7 100644
--- a/lib/src/slovenian/AdjectiveSlv.gf
+++ b/lib/src/slovenian/AdjectiveSlv.gf
@@ -13,8 +13,7 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
     UseComparA a = {
       s = \\spec,g,c,n => 
         case <spec,g,n,c> of {
-          <Def,AMasc _,Sg,Nom> => a.s ! AComparDefNom ;
-          <Def,AMasc _,Sg,Acc> => a.s ! AComparDefNom ;
+          <Def,AMasc _,Sg,Acc> => a.s ! AComparDefAcc ;
           _                    => a.s ! ACompar (agender2gender g) n c
         }
       } ;
diff --git a/lib/src/slovenian/ParadigmsSlv.gf b/lib/src/slovenian/ParadigmsSlv.gf
index 6fee34a7e..92f1a7a96 100644
--- a/lib/src/slovenian/ParadigmsSlv.gf
+++ b/lib/src/slovenian/ParadigmsSlv.gf
@@ -120,7 +120,7 @@ oper
              Gen   => table {Sg=>gensg; Dl=>gendl; Pl=>genpl};
              Dat   => table {Sg=>datsg; Dl=>datdl; Pl=>datpl};
              Acc   => table {Sg=>accsg; Dl=>accdl; Pl=>accpl};
-             Loc   => table {Sg=>locsg; Dl=>nomdl; Pl=>locpl};
+             Loc   => table {Sg=>locsg; Dl=>locdl; Pl=>locpl};
              Instr => table {Sg=>instrsg; Dl=>instrdl; Pl=>instrpl}
            };
        g = g
@@ -216,7 +216,7 @@ oper
                     (imp + "va") (imp+"mo") imp (imp +"ta") (imp + "te"); --Imper P1 Dl Pl + P2 Sg Dl Pl
 
   worstV : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> V =
-    \inf,sup,partsgm,partdlm,partplm,partsgf,partdlf,partplf,partsgn,partdln,partpln,pres1sg,pres2sg,pres3sg,pres1dl,pres2dl,pres3dl,pres1pl,pres2pl,pres3pl,imp1dl,imp1pl,imp2sg,imp2dl,imp2pl -> lin V {
+    \inf,sup,partsgm,partdlm,partplm,partsgf,partdlf,partplf,partsgn,partdln,partpln,pres1sg,pres2sg,pres3sg,pres1dl,pres2dl,pres3dl,pres1pl,pres2pl,pres3pl,imp1pl,imp1sg,imp2sg,imp2dl,imp2pl -> lin V {
        s = table {
              VInf              => inf;
              VSup              => sup;
@@ -238,7 +238,7 @@ oper
              VPres Pl P1       => pres1pl;
              VPres Pl P2       => pres2pl;
              VPres Pl P3       => pres3pl;
-             VImper1Sg         => imp1dl;
+             VImper1Sg         => imp1sg;
              VImper1Dl         => imp1pl;
              VImper2 Sg        => imp2sg;
              VImper2 Dl        => imp2dl;
diff --git a/lib/src/slovenian/ResSlv.gf b/lib/src/slovenian/ResSlv.gf
index 8a79905be..436dc70b0 100644
--- a/lib/src/slovenian/ResSlv.gf
+++ b/lib/src/slovenian/ResSlv.gf
@@ -28,8 +28,8 @@ param
         | APositDefNom
         | APositIndefAcc
         | APositDefAcc
-        | AComparDefNom
-        | ASuperlDefNom ;
+        | AComparDefAcc
+        | ASuperlDefAcc ;
 
 oper
   Agr = {g : Gender; n : Number; p : Person} ;