diff --git a/src/abstract/Extend.gf b/src/abstract/Extend.gf
index 7e46ecc0c..2aaac7b22 100644
--- a/src/abstract/Extend.gf
+++ b/src/abstract/Extend.gf
@@ -303,6 +303,6 @@ fun
   AnaphPron : NP -> Pron ;
 
 fun
-  TPasseSimple : Tense ;
+  TPastSimple : Tense ;
 
 }
diff --git a/src/bulgarian/ExtendBul.gf b/src/bulgarian/ExtendBul.gf
index 19f9a990d..085284af1 100644
--- a/src/bulgarian/ExtendBul.gf
+++ b/src/bulgarian/ExtendBul.gf
@@ -317,7 +317,7 @@ lin AnaphPron np =
         <GPl,        _> => they_Pron
       } ;
 
-lin TPasseSimple = {s = []} ** {t = VPastSimple} ;  --# notpresent
+lin TPastSimple = {s = []} ** {t = VPastSimple} ;  --# notpresent
 
 }
 
diff --git a/src/common/ExtendFunctor.gf b/src/common/ExtendFunctor.gf
index 4025e4dc7..cdbfa7dfa 100644
--- a/src/common/ExtendFunctor.gf
+++ b/src/common/ExtendFunctor.gf
@@ -127,7 +127,7 @@ 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
+  TPastSimple = 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 9bd5d869d..9d094ebcc 100644
--- a/src/czech/ExtendCze.gf
+++ b/src/czech/ExtendCze.gf
@@ -27,7 +27,7 @@ concrete ExtendCze of Extend = CatCze **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
-    ,TPasseSimple
+    ,TPastSimple
     ]
   with (Grammar = GrammarCze)
     **
diff --git a/src/romance/ExtendRomanceFunctor.gf b/src/romance/ExtendRomanceFunctor.gf
index d4367425c..03c24e019 100644
--- a/src/romance/ExtendRomanceFunctor.gf
+++ b/src/romance/ExtendRomanceFunctor.gf
@@ -278,7 +278,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
     UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
     UttVPShort = UttVP ;
 
-    TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent
+    TPastSimple = {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 eb1121e8d..4c85232cb 100644
--- a/src/slovak/ExtendSlo.gf
+++ b/src/slovak/ExtendSlo.gf
@@ -27,7 +27,7 @@ concrete ExtendSlo of Extend = CatSlo **
     ,CompBareCN
     ,PiedPipingQuestSlash
     ,PiedPipingRelSlash
-    ,TPasseSimple
+    ,TPastSimple
     ]
   with (Grammar = GrammarSlo)
     **