--- festival.old/lib/languages.scm	2002-04-19 23:47:23.000000000 +0200
+++ festival/lib/languages.scm	2006-10-23 22:32:25.000000000 +0200
@@ -56,6 +56,20 @@
   (Parameter.set 'Language 'britishenglish)
 )
 
+(define (language_french)
+"(language_french)
+Set up language parameters for French."
+
+  (load '/usr/share/festival/franfest/franfest.scm)
+
+  (set! male1 voice_fr1_mbrola)
+  (male1)
+  (set! female1 voice_fr2_mbrola)
+  (female1)
+
+  (Parameter.set 'Language 'français)
+)
+
 (define (language_american_english)
 "(language_american_english)
 Set up language parameters for Aemerican English."
@@ -109,6 +123,8 @@
     (language_welsh))
    ((equal? language 'spanish)
     (language_castillian_spanish))
+   ((equal? language 'french)
+    (language_french))
    ((equal? language 'klingon)
     (language_klingon))
    (t