From f1889644d40b415972b8976b7c5903613b55d876 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 12 Jun 2018 14:18:49 +0200
Subject: [PATCH] (Dut) Fix bug in regAdjective: now matching a pattern
 #dupCons, not just any suffix

---
 src/dutch/ResDut.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/dutch/ResDut.gf b/src/dutch/ResDut.gf
index 38617a73..4ebc09a8 100644
--- a/src/dutch/ResDut.gf
+++ b/src/dutch/ResDut.gf
@@ -111,7 +111,7 @@ resource ResDut = ParamX ** open Prelude, Predef in {
 
           b + v@#dupVow + c@?  => b + shortVoc v c + "e" ;
           b + #diphthong + ?   => endCons s + "e" ;
-          b + v@#vowel + c@dupCons  => b + v + c + c + "e" ;
+          b + v@#vowel + c@#dupCons  => b + v + c + c + "e" ;
           _ => endCons s + "e"
           } ;
       in reg2Adjective s se ;