diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs
index 683dbe419..ce1983dd1 100644
--- a/src/GF/Compile/PrOld.hs
+++ b/src/GF/Compile/PrOld.hs
@@ -56,8 +56,8 @@ stripTerm t = case t of
                   TComp ty -> TComp $ stripTerm ty
                   TWild ty -> TWild $ stripTerm ty
                   _ -> ti
-  R [] -> EInt 8      --- GF 1.2 parser doesn't accept empty records 
-  RecType [] -> Cn (zIdent "Int") ---
+----  R [] -> EInt 8      --- GF 1.2 parser doesn't accept empty records 
+----  RecType [] -> Cn (zIdent "Int") ---
   _ -> composSafeOp stripTerm t
 
 stripPattern p = case p of
diff --git a/src/Today.hs b/src/Today.hs
index 002cdf2bf..980148f83 100644
--- a/src/Today.hs
+++ b/src/Today.hs
@@ -1 +1 @@
-module Today where today = "Tue May 18 23:54:22 CEST 2004"
+module Today where today = "Fri May 21 18:10:31 CEST 2004"