diff --git a/src/abstract/Extend.gf b/src/abstract/Extend.gf
index a5eb3e24..7e46ecc0 100644
--- a/src/abstract/Extend.gf
+++ b/src/abstract/Extend.gf
@@ -302,4 +302,7 @@ fun
 fun
   AnaphPron : NP -> Pron ;
 
+fun
+  TPasseSimple : Tense ;
+
 }
diff --git a/src/common/ExtendFunctor.gf b/src/common/ExtendFunctor.gf
index 1b78fd20..4025e4dc 100644
--- a/src/common/ExtendFunctor.gf
+++ b/src/common/ExtendFunctor.gf
@@ -127,6 +127,8 @@ lin
   UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
   UttVPShort = UttVP ; -- have fun, as opposed to "to have fun" ; DEFAULT UttVP
 
+  TPasseSimple = Grammar.TPast ;   --# notpresent
+
   SQuestVPS = variants {} ; -- : NP   -> VPS -> QS ;         -- has she walked
   QuestVPS = variants {} ; --  : IP   -> VPS -> QS ;         -- who has walked
 
diff --git a/src/czech/ExtendCze.gf b/src/czech/ExtendCze.gf
index de797dd6..9bd5d869 100644
--- a/src/czech/ExtendCze.gf
+++ b/src/czech/ExtendCze.gf
@@ -27,6 +27,7 @@ concrete ExtendCze of Extend = CatCze **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
+    ,TPasseSimple
     ]
   with (Grammar = GrammarCze)
     **
diff --git a/src/romance/ExtendRomanceFunctor.gf b/src/romance/ExtendRomanceFunctor.gf
index 0f2ba9c3..d4367425 100644
--- a/src/romance/ExtendRomanceFunctor.gf
+++ b/src/romance/ExtendRomanceFunctor.gf
@@ -278,6 +278,8 @@ incomplete concrete ExtendRomanceFunctor of Extend =
     UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
     UttVPShort = UttVP ;
 
+    TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent
+
   oper
     quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?
 
diff --git a/src/slovak/ExtendSlo.gf b/src/slovak/ExtendSlo.gf
index 86732cb0..eb1121e8 100644
--- a/src/slovak/ExtendSlo.gf
+++ b/src/slovak/ExtendSlo.gf
@@ -27,6 +27,7 @@ concrete ExtendSlo of Extend = CatSlo **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
+    ,TPasseSimple
     ]
   with (Grammar = GrammarSlo)
     **