`trace' is broken

[Martin Grabmueller]

Hello list,

I was just trying out an example from the GRM, node `Trace':

  guile> (define (rev ls)
  ...      (if (null? ls)
  ...         '()
  ...         (append (rev (cdr ls)) (cons (car ls) '()))))
  guile> (rev '(a b c d e))
  (e d c b a)
  guile> (trace rev)
  (rev)
  guile> (rev '(a b c d e))
  [rev (a b c d e)]
  ERROR: In procedure throw:
  ERROR: lazy-catch handler did return.
  ABORT: (misc-error)
  guile> 

It would be really nice if we could get that working again before 1.6.

Thanks,
  'martin