--- languages.scm.old	2005-05-09 21:26:43.056793103 +0200
+++ languages.scm	2005-05-09 20:51:24.735200401 +0200
@@ -56,6 +56,20 @@
   (Parameter.set 'Language 'britishenglish)
 )
 
+
+(define (language_italian)
+"(language_italian)
+Set up language parameters for Italian."
+
+  (if (symbol-bound? 'voice_lp_diphone)
+      (set! female1 voice_lp_diphone))
+  (set! male1 voice_pc_diphone)
+
+  (male1)
+  (Parameter.set 'Language 'italian)
+)
+
+
 (define (language_american_english)
 "(language_american_english)
 Set up language parameters for Aemerican English."
@@ -107,6 +121,8 @@
     (language_scots_gaelic))
    ((equal? language 'welsh)
     (language_welsh))
+   ((equal? language 'italian)
+    (language_italian))
    ((equal? language 'spanish)
     (language_castillian_spanish))
    ((equal? language 'klingon)