--- festival-1.4.3.orig/lib/festival.scm

+++ festival-1.4.3/lib/festival.scm

@@ -468,7 +468,7 @@

 (If compiled with editline)

   M-h               desplays help on current symbol  

   M-s               speaks help on current symbol  

-  M-m               displays relevant manula page in local netscape

+  M-m               displays relevant manual page in local netscape

   TAB               Command, symbol and filename completion

   C-p or up-arrow   Previous command

   C-b or left-arrow Move back one character

@@ -526,13 +526,13 @@

 (define (intro)

 "(intro)

  Synthesize an introduction to the Festival Speech Synthesis System."

-  (tts (path-append libdir "../examples/intro.text") nil))

+  (tts "/usr/share/doc/festival/examples/intro.text" nil))

 (define (intro-spanish)

 "(intro-spanish)

  Synthesize an introduction to the Festival Speech Synthesis System

  in spanish.  Spanish voice must already be selected for this."

-  (tts (path-append libdir "../examples/spintro.text") nil))

+  (tts "/usr/share/doc/festival/examples/spintro.text" nil))

 (define (na_play FILENAME)

 "(play_wave FILENAME)

--- festival-1.4.3.orig/testsuite/data/modes.scm

+++ festival-1.4.3/testsuite/data/modes.scm

@@ -42,12 +42,12 @@

 (format t "\n\nSABLE mode\n")

 (unwind-protect

- (tts (string-append libdir "/../examples/example2.sable") nil))

+ (tts "/usr/share/doc/festival/examples/example2.sable" 'sable))

 (format t "\n\nOGI's mark up mode\n")

 (unwind-protect 

- (tts (string-append libdir "/../examples/ex1.ogi") 'ogimarkup))

+ (tts "/usr/share/doc/festival/examples/ex1.ogi" 'ogimarkup))

 (format t "\n\nAn email mode\n")

 (unwind-protect

- (tts (string-append libdir "/../examples/ex1.email") nil))

+ (tts "/usr/share/doc/festival/examples/ex1.email" nil))