---------------------------------------------------------------------------
Mon Jul  5 10:07:04 EDT 1999

text2wave doesn't work becuase of a trivial typo.  In festival/lib/festival.scm
at line 309 change

	(wave_append (utt.wave utt) (wave.load filename))

to

	(wave.append (utt.wave utt) (wave.load filename))

---------------------------------------------------------------------------

Mon Jul  5 10:16:14 EDT 1999

When using (the old) letter to sound rules system redefinition
of an existing rule set causes a segmentation fault at the garbage
collection. (This doesn't effect any of the currently distributed voices)

In festival/src/modules/Lexicon/lts_rules.cc change function

LISP lts_def_ruleset(LISP args, LISP penv)
{
    // Define a new rule set
    (void)penv;
    LTS_Ruleset *rs = new LTS_Ruleset(car(args),
				      car(cdr(cdr(args))),
				      car(cdr(args)));
    LTS_Ruleset *old_rs;
    LISP name = car(args);
    LISP lpair;
    
    if (lts_rules_list == NIL)
	gc_protect(&lts_rules_list);

    lpair = siod_assoc_str(get_c_string(name),lts_rules_list);
    
    if (lpair == NIL)
    {
	lts_rules_list = cons(cons(name,
				   cons(siod(rs),NIL)),
			      lts_rules_list);
    }
    else
    {
	cwarn << "LTS_Rules: " << get_c_string(name) << " recreated" << endl;
	old_rs = ltsruleset(car(cdr(lpair)));
	delete old_rs;
	setcar(cdr(lpair),siod(rs));
    }

    return name;
}

to 

LISP lts_def_ruleset(LISP args, LISP penv)
{
    // Define a new rule set
    (void)penv;
    LTS_Ruleset *rs = new LTS_Ruleset(car(args),
				      car(cdr(cdr(args))),
				      car(cdr(args)));
    LISP name = car(args);
    LISP lpair;
    
    if (lts_rules_list == NIL)
	gc_protect(&lts_rules_list);

    lpair = siod_assoc_str(get_c_string(name),lts_rules_list);
    
    if (lpair == NIL)
    {
	lts_rules_list = cons(cons(name,
				   cons(siod(rs),NIL)),
			      lts_rules_list);
    }
    else
    {
	cwarn << "LTS_Rules: " << get_c_string(name) << " recreated" << endl;
	setcar(cdr(lpair),siod(rs));
    }

    return name;
}

---------------------------------------------------------------------------

Mon Jun 28 07:34:51 BST 1999

Rescaling of waveforms using the following (as recommended in previous
versions) in you site.init.scm 

(set! default_after_synth_hooks
   (list
     (lambda (utt)
       (utt.wave.rescale utt 1.0 t))))

no longer works (but should).  In festival/lib/festival.scm change

(define (utt.wave.rescale . args)
 "(utt.wave.rescale UTT FACTOR NORMALIZE)
Modify the gain of the waveform in UTT by GAIN.  If NORMALIZE is
specified and non-nil the waveform is maximized first."
  (wave.rescale (utt.wave (nth 0 args)) (nth 1 args) (car (nth 2 args)))
  (nth 0 args))

to the following

(define (utt.wave.rescale . args)
 "(utt.wave.rescale UTT FACTOR NORMALIZE)
Modify the gain of the waveform in UTT by GAIN.  If NORMALIZE is
specified and non-nil the waveform is maximized first."
  (wave.rescale (utt.wave (nth 0 args)) (nth 1 args) (nth 2 args))
  (nth 0 args))

-------------------------------------------------------------------------
Thu Jun 24 12:14:24 BST 1999

released festdoc-1.4.0.1.tar.gz to add missing chapters

---------------------------------------------------------------------------
Wed Jun 23 10:27:53 BST 1999

No fixes at present