diff --git a/src/chinese/ConstructionChi.gf b/src/chinese/ConstructionChi.gf
index 2bd0f343..db111007 100644
--- a/src/chinese/ConstructionChi.gf
+++ b/src/chinese/ConstructionChi.gf
@@ -21,7 +21,7 @@ lin
   weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;
    
   is_right_VP = mkVP (ParadigmsChi.mkA "对") ; 
-  is_wrong_VP = mkVP (ParadigmsChi.mkV "错") ; 
+  is_wrong_VP = mkVP (ParadigmsChi.mkA "错") ; 
 
   n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; ----
 
diff --git a/src/dutch/ResDut.gf b/src/dutch/ResDut.gf
index 09f897ba..ffafa30c 100644
--- a/src/dutch/ResDut.gf
+++ b/src/dutch/ResDut.gf
@@ -654,7 +654,7 @@ param
 
   useInfVP : Bool -> VP -> Str = \isAux,vp ->
     let vpi = infVP isAux vp in
-    "om" ++ vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ; -- TODO
+    vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ; -- TODO
 
   reflPron : Agr => Str = table {
     {n = Sg ; p = P1} => "me" ;