Index: festival/src/main/festival_main.cc
===================================================================
--- festival/src/main/festival_main.cc
+++ festival/src/main/festival_main.cc	2007-08-07 03:36:20.000000000 +0300
@@ -103,7 +103,7 @@
 	"              are printed (default if stdin not a tty)\n"+
 	"--language <string>\n"+
         "              Run in named language, default is\n"+
-	"              english, spanish and welsh are available\n"+
+	"              english; spanish, welsh and finnish are available\n"+
 	"--server      Run in server mode waiting for clients\n"+
 	"              of server_port (1314)\n"+
 	"--script <ifile>\n"+
Index: festival/lib/languages.scm
===================================================================
--- festival/lib/languages.scm
+++ festival/lib/languages.scm	2007-08-07 03:38:01.000000000 +0300
@@ -95,6 +95,16 @@
 
   (Parameter.set 'Language 'spanish)
 )
+(define (language_finnish)
+"(language_finnish)
+Set up language parameters for Finnish."
+  (if (symbol-bound? 'voice_suo_fi_lj_diphone)
+      (set! female1 (lambda () (voice_suo_fi_lj_diphone))))
+  (set! male1 (lambda () (voice_hy_fi_mv_diphone)))
+
+  (male1)
+  (Parameter.set 'Language 'finnish)
+)
 
 (define (select_language language)
   (cond
@@ -109,6 +119,8 @@
     (language_welsh))
    ((equal? language 'spanish)
     (language_castillian_spanish))
+   ((equal? language 'finnish)
+    (language_finnish))
    ((equal? language 'klingon)
     (language_klingon))
    (t