diff --git a/src/malay/ConstructionMay.gf b/src/malay/ConstructionMay.gf
index 0da606684..eda790f8f 100644
--- a/src/malay/ConstructionMay.gf
+++ b/src/malay/ConstructionMay.gf
@@ -1,4 +1,4 @@
-concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), SyntaxMay in {
+concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), (G=GrammarMay) in {
 
 lincat
   Timeunit = N ;
@@ -9,18 +9,13 @@ lincat
 
 lin
 
-  has_age_VP card = mkVP umur_V2 (mkNP <lin Card card : Card> L.year_N) ;
+  has_age_VP card = G.ComplSlash (G.SlashV2a umur_V2) (G.DetCN (G.DetQuant G.IndefArt (G.NumCard card)) (G.UseN L.year_N)) ;
 
 oper
   umur_V2 : V2 = mkV2 (mkV "umur") noPrep ;
 
 {-
 
-  timeunitAdv n time =
-  let n_card : Card   = n ;
-      n_hours_NP : NP = mkNP n_card time ;
-  in  SyntaxMay.mkAdv for_Prep n_hours_NP | mkAdv (n_hours_NP.s ! R.npNom) ;
-
   weekdayPunctualAdv w = ;         -- on Sunday
   weekdayHabitualAdv w = ;         -- on Sundays
   weekdayNextAdv w =      -- next Sunday