diff --git a/src/japanese/ConstructionJpn.gf b/src/japanese/ConstructionJpn.gf
index 4bcb4514..d63096aa 100644
--- a/src/japanese/ConstructionJpn.gf
+++ b/src/japanese/ConstructionJpn.gf
@@ -51,7 +51,7 @@ lin
   intYear = symb ;
 
   -- : Int -> Monthday ; -- 31th (March)
-  intMonthday i = symb { s = i.s ++ "日" } ; 
+  intMonthday i = symb (lin Int {s = i.s ++ "日"}) ;