From 0fcf1d1f66f8cc94b6b966c2d6e99853cdec93f7 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 7 May 2018 16:59:29 +0200
Subject: [PATCH] (Dut) Fix verb form + reflexive in plural and polite
 imperative

---
 src/dutch/SentenceDut.gf | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/dutch/SentenceDut.gf b/src/dutch/SentenceDut.gf
index 2da54f6d..3efc1ca1 100644
--- a/src/dutch/SentenceDut.gf
+++ b/src/dutch/SentenceDut.gf
@@ -12,11 +12,11 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
       s = \\pol,im => 
         let 
           ps = case im of {
-            ImpF Pl _     => <VImpPl,[],Pl> ;
-            ImpF Sg True  => <VImp3,"u",Sg> ;
-            ImpF Sg False => <VImp2,[],Sg>
+            ImpF Pl _     => <VImp2,[],Pl,P2> ;
+            ImpF Sg True  => <VImp3,"u",Sg,P3> ;
+            ImpF Sg False => <VImp2,[],Sg,P2>
             } ;
-          agr  = {g = Utr ; n = ps.p3 ; p = P2} ; ---- P2? -- g does not matter
+          agr  = {g = Utr ; n = ps.p3 ; p = ps.p4 } ; -- g does not matter
           verb = vp.s.s ! ps.p1 ;
 	  part = vp.s.particle ++ vp.a2 ++ vp.s.prefix ; -- as in mkClause
           inf  = vp.inf.p1 ;