diff --git a/src/arabic/LexiconAra.gf b/src/arabic/LexiconAra.gf
index 76ee7542f..d10f07ec6 100644
--- a/src/arabic/LexiconAra.gf
+++ b/src/arabic/LexiconAra.gf
@@ -142,7 +142,7 @@ flags
   old_A        = sndA "قدم" "فَعِيل" ;
   open_V2      = dirV2 (regV "يَفتَح") ;
 --  open_V2      = dirV2 (v1 "فتح" a a ) ;
-  paint_V2A    = mkV2A (regV "يَدهَن" ) [] ;
+  paint_V2A    = dirV2 (regV "يَدهَن" ) ;
 --  paint_V2A    = mkV2A (v1 "دهن" a a ) [] ;
   paper_N      = brkN "ورق" "فَعَلة" "أَفعَال" Fem NoHum ;
   paris_PN     = mkPN "بارِيس" Fem NoHum  ;
diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index a4235a630..93c44e2ea 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -88,14 +88,13 @@ resource ParadigmsAra = open
      = smartPN ;
     mkPN : N -> PN    -- Make a PN out of N. The PN is in construct state.
      = \n -> lin PN (n ** {
-          s = \\c => n.s ! Sg ! Const ! c 
+          s = \\c => n.s ! Sg ! Const ! c
                   ++ n.s2 ! Sg ! Def ! c -- NB this hack works for idaafa constructions (if you used mkN : N -> N -> N), but wrong for mkN : N -> A -> N. /IL
         }) ;
     mkPN : Str -> Gender -> Species -> PN -- Make a PN out of string, gender and species.
      = mkFullPN ;
   } ;
 
-
 --3 Relational nouns
 
   mkN2 : overload {
@@ -110,7 +109,6 @@ resource ParadigmsAra = open
     mkN3 : N -> Str -> Str -> N3 ;  -- prepositions given as strings
   } ;
 
-
 --2 Adjectives
 
 -- Overloaded operator for main cases