diff --git a/src/arabic/ExtendAra.gf b/src/arabic/ExtendAra.gf
new file mode 100644
index 000000000..a67d4483a
--- /dev/null
+++ b/src/arabic/ExtendAra.gf
@@ -0,0 +1,20 @@
+--# -path=.:../common:../abstract
+
+concrete ExtendAra of Extend =
+  CatAra ** ExtendFunctor - [
+    GenNP, SlashBareV2S, PredAPVP, GenModNP, ExistsNP,
+    StrandRelSlash, ExistPluralCN, ExistMassCN, ExistCN, EmptyRelSlash, DetNPMasc, DetNPFem,
+    ComplBareVS, ComplDirectVS, ComplDirectVQ
+]
+  with (Grammar=GrammarAra)
+  ** open
+
+    Prelude,
+    ResAra
+  
+  in {
+
+  lin
+    GenNP np = { s = \\_,_,_ => np.s ; d = Const ; isNum, isPron = False } ;
+
+} ;
diff --git a/src/arabic/QuestionAra.gf b/src/arabic/QuestionAra.gf
index f5f247dee..30d528391 100644
--- a/src/arabic/QuestionAra.gf
+++ b/src/arabic/QuestionAra.gf
@@ -8,7 +8,7 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
       s = \\t,p => 
         table {
           QIndir => "إِذا" ++ cl.s ! t ! p ! Verbal ;
-          QDir => cl.s ! t ! p ! Verbal 
+          QDir => "هَل" ++ cl.s ! t ! p ! Verbal 
         }
       };
 
diff --git a/src/arabic/SentenceAra.gf b/src/arabic/SentenceAra.gf
index 1b0990581..56d63a1b1 100644
--- a/src/arabic/SentenceAra.gf
+++ b/src/arabic/SentenceAra.gf
@@ -120,7 +120,7 @@ concrete SentenceAra of Sentence = CatAra ** open
     UseQCl t ap qcl = --{s = cl.s ! t ! p ! Verbal } ;
       {s = 
          table {
-           QDir => "هَل" ++ qcl.s ! ResAra.Pres ! ap.p ! QDir;
+           QDir => qcl.s ! ResAra.Pres ! ap.p ! QDir;
            QIndir =>  qcl.s ! ResAra.Pres ! ap.p ! QIndir
          }
 {-         case t of {