diff --git a/src/GF.hs b/src/GF.hs
index 3144e8a18..970008829 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -71,8 +71,8 @@ authorMsg = unlines [
  "Grammatical Framework, Version 2.0-- (incomplete functionality)", 
 --- "Compiled March 26, 2003",
  "Compiled " ++ today,
- "Copyright (c) Markus Forsberg, Thomas Hallgren, Kristofer Johannisson,",
- "Janna Khegai, Peter Ljunglöf, Petri Mäenpää, and Aarne Ranta", 
- "1998-2003, under GNU General Public License (GPL)",
+ "Copyright (c) Markus Forsberg, Thomas Hallgren, Harald Hammarström,",
+ "Kristofer Johannisson, Janna Khegai, Peter Ljunglöf, Petri Mäenpää,", 
+ "and Aarne Ranta, 1998-2003, under GNU General Public License (GPL)",
  "Bug reports to aarne@cs.chalmers.se"
  ]
diff --git a/src/GF/Text/Ethiopic.hs b/src/GF/Text/Ethiopic.hs
index 32d420fd4..67ac43f58 100644
--- a/src/GF/Text/Ethiopic.hs
+++ b/src/GF/Text/Ethiopic.hs
@@ -1,5 +1,8 @@
 module Ethiopic where
 
+-- Ascii-Unicode decoding for Ethiopian
+-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License
+
 mkEthiopic :: String -> String
 mkEthiopic = digraphWordToUnicode . adHocToDigraphWord
 
diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs
index 734879e70..3c1b68c3f 100644
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -14,7 +14,7 @@ import ExtendedArabic (mkExtendedArabic)
 
 -- ad hoc Unicode conversions from different alphabets
 
--- AR 12/4/2000, 18/9/2001, 30/5/2002
+-- AR 12/4/2000, 18/9/2001, 30/5/2002, HH 14/11/2003
 
 mkUnicode s = case s of
  '/':'/':cs -> mkGreek   (remClosing cs)
@@ -22,13 +22,13 @@ mkUnicode s = case s of
  '/':'-':cs -> mkArabic  (remClosing cs)
  '/':'_':cs -> mkRussian (remClosing cs)
  '/':'*':cs -> mkRusKOI8 (remClosing cs)
- '/':'E':cs -> mkEthiopic (remClosing cs)
- '/':'T':cs -> mkTamil (remClosing cs)
- '/':'C':cs -> mkOCSCyrillic (remClosing cs)
- '/':'&':cs -> mkDevanagari (remClosing cs)
- '/':'L':cs -> mkLatinASupplement (remClosing cs)
- '/':'J':cs -> mkJapanese (remClosing cs)
- '/':'A':cs -> mkExtendedArabic (remClosing cs)
+ '/':'E':cs -> mkEthiopic (remClosing cs)           -- HH
+ '/':'T':cs -> mkTamil (remClosing cs)              -- HH
+ '/':'C':cs -> mkOCSCyrillic (remClosing cs)        -- HH
+ '/':'&':cs -> mkDevanagari (remClosing cs)         -- HH
+ '/':'L':cs -> mkLatinASupplement (remClosing cs)   -- HH
+ '/':'J':cs -> mkJapanese (remClosing cs)           -- HH
+ '/':'A':cs -> mkExtendedArabic (remClosing cs)     -- HH
  _      -> s
 
 remClosing cs 
diff --git a/src/Today.hs b/src/Today.hs
index d403f7c4d..4c966d529 100644
--- a/src/Today.hs
+++ b/src/Today.hs
@@ -1 +1 @@
-module Today where today = "Fri Nov 14 14:23:19 CET 2003"
+module Today where today = "Fri Nov 14 14:45:24 CET 2003"