From 837fae5a502c369214cf53cb08db20744cf9253b Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 12 May 2016 09:44:38 +0000
Subject: [PATCH] bugfix in the Russian RGL

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

diff --git a/src/russian/SentenceRus.gf b/src/russian/SentenceRus.gf
index 342050b6d..4ac2286c6 100644
--- a/src/russian/SentenceRus.gf
+++ b/src/russian/SentenceRus.gf
@@ -95,7 +95,7 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
     EmbedQS qs = {s = qs.s ! QIndir} ;
     EmbedVP vp = {s = vp.s2  ++ vp.s!ClInfinit!(GSg Masc) !P3 ++ vp.s3!Masc!Sg} ;
 
-    UseCl t p cl = {s = case t.t of { 
+    UseCl t p cl = {s = t.s ++ p.s ++ case t.t of { 
       Cond => cl.s! p.p ! ClCondit ; --# notpresent
       Pres => cl.s! p.p ! ClIndic Present t.a   ---- AR work-around 13/12/2007
         ; --# notpresent