diff --git festival/lib/festival.scm festival/lib/festival.scm
index bf03745..ada84c0 100644
--- festival/lib/festival.scm
+++ festival/lib/festival.scm
@@ -494,7 +494,7 @@ Getting Help
 (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
@@ -552,13 +552,13 @@ Doing stuff
 (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)
diff --git festival/testsuite/data/modes.scm festival/testsuite/data/modes.scm
index d73be11..9d4eede 100644
--- festival/testsuite/data/modes.scm
+++ festival/testsuite/data/modes.scm
@@ -42,13 +42,13 @@
 
 (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))
 
 (voice_kal_diphone)
 (format t "\n\nA singing mode\n")