diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index b3b2589b7..ef964cf2a 100644
--- a/src/hungarian/ResHun.gf
+++ b/src/hungarian/ResHun.gf
@@ -193,6 +193,12 @@ oper
     -- c3 : Case   -- indirect object case
     } ;
 
+  datV2 : Verb -> Verb2 = \v -> {
+    s = \\_ => v.s ;
+    sc = SCDat ;
+    c2 = Nom
+    } ;
+
   mkVerb2 : Str -> Verb2 = \sg3 -> vtov2 (mkVerb sg3) ;
   mkVerb3 : Str -> Verb3 = \sg3 -> v2tov3 (mkVerb2 sg3) ;
 
diff --git a/src/hungarian/StructuralHun.gf b/src/hungarian/StructuralHun.gf
index 3e6feb4ae..24d610d69 100644
--- a/src/hungarian/StructuralHun.gf
+++ b/src/hungarian/StructuralHun.gf
@@ -214,7 +214,7 @@ lin yes_Utt = ss "igen" ;
 -------
 -- Verb
 
-lin have_V2 = vtov2 copula ** {sc = SCDat ; c2 = Nom} ;
+lin have_V2 = datV2 copula ;
 {-lin can8know_VV = can_VV ; -- can (capacity)
 lin can_VV = mkVV "" ;   -- can (possibility)
 lin must_VV = mkVV "" ;