From f2b36760dabb76f635f73af8392150158552f432 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 29 Apr 2010 16:28:57 +0000
Subject: [PATCH] fixing a type error in QuestionBul.AdvIAdv

---
 lib/src/bulgarian/QuestionBul.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/src/bulgarian/QuestionBul.gf b/lib/src/bulgarian/QuestionBul.gf
index 009cda5b4..0892fa2f5 100644
--- a/lib/src/bulgarian/QuestionBul.gf
+++ b/lib/src/bulgarian/QuestionBul.gf
@@ -59,7 +59,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
       nonEmpty = num.nonEmpty
       } ;
 
-    AdvIAdv i a = {s = i.s ++ a.s} ;
+    AdvIAdv i a = {s = \\q => i.s ! q ++ a.s} ;
 
     CompIP ip = {s = ip.s ! RSubj} ;
 }