diff --git a/src/zulu/ResZul.gf b/src/zulu/ResZul.gf
index a2e18f45..7cf7c3ad 100755
--- a/src/zulu/ResZul.gf
+++ b/src/zulu/ResZul.gf
@@ -1204,6 +1204,11 @@ resource ResZul = open Prelude,Predef,ParamX in {
     --     FutTense => subjConcLookup ! agr ! SC ++BIND++ "zobe"
     --   } ;
 
+    impPref : Polarity -> Str = \pol -> case pol of {
+      Pos => [] ;
+      Neg => "u" ++BIND++ "nga"
+    } ;
+
     icomp_pref : VForm -> Agr -> Str = \vform,agr ->
     let
       neg1 = icompNeg1 vform ;
diff --git a/src/zulu/SentenceZul.gf b/src/zulu/SentenceZul.gf
index 285ab122..118bba27 100755
--- a/src/zulu/SentenceZul.gf
+++ b/src/zulu/SentenceZul.gf
@@ -118,39 +118,38 @@ concrete SentenceZul of Sentence = CatZul ** open Prelude,ResZul,ParamX in {
           subj = np.s!NFull ;
           vform_main = VFIndic MainCl p t ;
         in
-          subj
-          ++ (imp_verb_prefix vp p t np.agr)
+          impPref p
           ++ vp.s!MainCl!np.agr!p!t
           ++ vp.iadv
           ++ vp.comp
           ++ vp.advs
     } ;
 
-    imp_verb_prefix : VP -> Polarity -> BasicTense -> Agr -> Str = \vp,p,t,agr ->
-      let
-        -- vow = case <vp.hasComp,vp.r,p,t> of {
-        vow = case <vp.hasComp,p,t,vp.r> of {
-          <False,Pos,PresTense,RC> => False ; -- force the compiler to understand the table
-          <False,Pos,PresTense,_> => False ; -- long form ya
-
-          <_,_,PresTense,RC> => False ;
-          <_,_,PresTense,_> => True ;
-          -- <_,Pos,PerfTense,RC> => False ;
-          -- <_,Pos,PerfTense,_> => True ;
-          <_,_,PastTense,RC> => False ;
-          <_,_,PastTense,_> => True ;
-          <_,_,RemPastTense,RC> => False ;
-          <_,_,RemPastTense,_> => True ;
-          <_,_,_,_> => False
-        } ;
-        vform = VFIndic MainCl p t
-      in
-          (negPref vform)
-       -- ++ (exclSePref vform_main)
-       ++ (subjConc vform agr vow)
-       -- ++ (negPref2 vform_main)
-       -- ++ (tensePref vform)
-    ;
+    -- imp_verb_prefix : VP -> Polarity -> BasicTense -> Agr -> Str = \vp,p,t,agr ->
+    --   let
+    --     -- vow = case <vp.hasComp,vp.r,p,t> of {
+    --     vow = case <vp.hasComp,p,t,vp.r> of {
+    --       <False,Pos,PresTense,RC> => False ; -- force the compiler to understand the table
+    --       <False,Pos,PresTense,_> => False ; -- long form ya
+    --
+    --       <_,_,PresTense,RC> => False ;
+    --       <_,_,PresTense,_> => True ;
+    --       -- <_,Pos,PerfTense,RC> => False ;
+    --       -- <_,Pos,PerfTense,_> => True ;
+    --       <_,_,PastTense,RC> => False ;
+    --       <_,_,PastTense,_> => True ;
+    --       <_,_,RemPastTense,RC> => False ;
+    --       <_,_,RemPastTense,_> => True ;
+    --       <_,_,_,_> => False
+    --     } ;
+    --     vform = VFIndic MainCl p t
+    --   in
+    --       (negPref vform)
+    --    -- ++ (exclSePref vform_main)
+    --    ++ (subjConc vform agr vow)
+    --    -- ++ (negPref2 vform_main)
+    --    -- ++ (tensePref vform)
+    -- ;
 
     cl_with_verb_predicate : NP -> VP -> { s : Polarity => BasicTense => Str } = \np,vp -> {
       s = \\p,t =>