diff --git a/src/arabic/MissingAra.gf b/src/arabic/MissingAra.gf
index c8234cba..fa52d74a 100644
--- a/src/arabic/MissingAra.gf
+++ b/src/arabic/MissingAra.gf
@@ -12,9 +12,6 @@ oper ComparAdvAdjS : CAdv -> A -> S -> Adv = notYet "ComparAdvAdjS" ;
 oper ConjRS : Conj -> ListRS -> RS = notYet "ConjRS" ;
 oper ConsRS : RS -> ListRS -> ListRS = notYet "ConsRS" ;
 oper DetNP : Det -> NP = notYet "DetNP" ;
-oper EmbedQS : QS -> SC = notYet "EmbedQS" ;
-oper EmbedS : S -> SC = notYet "EmbedS" ;
-oper EmbedVP : VP -> SC = notYet "EmbedVP" ;
 oper ExistIP : IP -> QCl = notYet "ExistIP" ;
 oper FunRP : Prep -> NP -> RP -> RP = notYet "FunRP" ;
 oper ImpPl1 : VP -> Utt = notYet "ImpPl1" ;
diff --git a/src/arabic/SentenceAra.gf b/src/arabic/SentenceAra.gf
index 854daaf4..cea5f38e 100644
--- a/src/arabic/SentenceAra.gf
+++ b/src/arabic/SentenceAra.gf
@@ -58,10 +58,10 @@ concrete SentenceAra of Sentence = CatAra ** open
 --  SlashVS np vs sslash = TODO
 
 
---    EmbedS  s  = {s = conjThat ++ s.s} ;
---    EmbedQS qs = {s = qs.s ! QIndir} ;
---    EmbedVP vp = {s = infVP False vp (agrP3 Sg)} ; --- agr
---
+  EmbedS  s  = {s = "أَنْ" ++ s.s ! Verbal} ;
+  EmbedQS qs = {s = qs.s ! QIndir} ;
+  EmbedVP vp = {s = uttVP vp ! Masc} ;
+
 
     UseCl t p cl =
       {s = \\o => t.s ++ p.s ++