Bug 108642

	After upgrading to slib-3a4_1, GNUcash breaks with the
	following:

	Backtrace:
	In unknown file:
	   ?: 49* [save-module-excursion #<procedure #f ()>]
	   ?: 50  (let (# #) (dynamic-wind # thunk #))
	   ?: 51  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
	   ?: 52* [#<procedure #f ()>]
	   ?: 53* [primitive-load "/usr/local/share/gnome/gnucash/guile-modules/gnucash/repo$
	In /usr/local/share/gnome/gnucash/guile-modules/gnucash/report/account-piecharts.scm:
	 460: 54* [for-each #<procedure #f (l)> (# # # #)]
	In unknown file:
	   ?: 55  (if (null? rest) (letrec ((lp #)) (lp list1)) ...)
	    ...
	   ?: 56  (begin (f (car l)) (lp (cdr l)))
	   ?: 57* [#<procedure #f (l)> ("Income Accounts" (income) #t ...)]
	In /usr/local/share/gnome/gnucash/guile-modules/gnucash/report/account-piecharts.scm:
	 462: 58  (let ((tip-and-rev (cddddr l))) (gnc:define-report (quote version) 1 ...))
	In /usr/local/share/gnome/gnucash/scm/report.scm:
	    ...
	  94: 59  (let (#) (if # # #))
	  94: 60* [args-to-defn #f (version 1 name ...)]
	  83: 61  (let ((report-rec #)) (if (null? args) in-report-rec (let # # #)))
	  83: 62* (if in-report-rec in-report-rec (blank-report))
	  85: 63  [blank-report]
	  67: 64  ((record-constructor <report-template>) #f #f #f #f #f #f #t #f ...)
	  67: 65* [rec-constructor #<record-type <report-template>>]
	In /usr/local/share/slib/record.scm:
	 131: 66* (if (not #) (slib:error # "illegal rtd argument." rtd))
	 132: 67  [error record-constructor "illegal rtd argument." ...]
	In unknown file:
	    ...
	   ?: 68  [scm-error misc-error #f ...]

	<unnamed port>: In procedure scm-error in expression (scm-error (quote misc-error) #f ...):
	<unnamed port>: record-constructor "illegal rtd argument." #<record-type <report-template>>

Fix: This is a patch that mirrors the changes made to the GNUcash trunk
in revision 15428.