diff --git a/src/english/MakeStructuralEng.gf b/src/english/MakeStructuralEng.gf
index b293bff59..71edc2fb6 100644
--- a/src/english/MakeStructuralEng.gf
+++ b/src/english/MakeStructuralEng.gf
@@ -11,5 +11,7 @@ oper
     lin IDet {s = s ; n = n} ;
   mkIQuant : Str -> Str -> IQuant = \s,n ->
     lin IQuant {s = table {Sg => s ; Pl => n}} ;
+  mkDet : Str -> Number -> Det = \s,n ->
+    lin Det (mkDeterminer n s) ;
 
 }
diff --git a/src/finnish/MakeStructuralFin.gf b/src/finnish/MakeStructuralFin.gf
index 9682486a0..d42d9ead0 100644
--- a/src/finnish/MakeStructuralFin.gf
+++ b/src/finnish/MakeStructuralFin.gf
@@ -10,4 +10,7 @@ oper
   mkIQuant : Str -> IQuant = \s ->
     {s = \\n,c => s ; lock_IQuant = <>} ; ----
 
+  mkDet : N -> Number -> Det = \s,n ->
+    MorphoFin.mkDet n s ;
+    
 }