From c837f1cdf7bb35475dfa11ea9b245da75a069892 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 21 Sep 2018 09:11:22 +0200
Subject: [PATCH] (Ara) keep the old s2 field in insertStr

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

diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index 8d2bd255d..c0c4ab793 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -1095,7 +1095,7 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
       };
 
     insertStr : Str -> VP -> VP = \str,vp -> vp **
-      { s2 = str };
+      { s2 = vp.s2 ++ str };
 
     kaan : {s : AAgr => Case => Str} -> VP = \xabar -> 
       insertPred xabar (predV (v1hollow {f = "ك"; c = "و" ; l = "ن"} u) );