gnucash master: Fix crash as reported in bug 711567

[Geert Janssens]

Updated	 via  https://github.com/Gnucash/gnucash/commit/faf05aab (commit)
	from  https://github.com/Gnucash/gnucash/commit/ce15a123 (commit)



commit faf05aabc3703512d9307a655ad97a0189bd4f20
Author: Geert Janssens <janssens-geert at telenet.be>
Date:   Mon Mar 10 12:30:50 2014 +0100

    Fix crash as reported in bug 711567
    
    The actual bug itself is not fixed yet.

diff --git a/src/report/report-system/report.scm b/src/report/report-system/report.scm
index 254eed2..c9b6b68 100644
--- a/src/report/report-system/report.scm
+++ b/src/report/report-system/report.scm
@@ -464,7 +464,7 @@
   (hash-ref *gnc:_report-templates_* report-type))
 
 (define (gnc:report-template-is-custom/template-guid? guid)
-  (let* ((custom-template (if (string-null? guid) #f (hash-ref *gnc:_report-templates_* guid)))
+  (let* ((custom-template (if (string? guid) (if (string-null? guid) #f (hash-ref *gnc:_report-templates_* guid)) #f))
          (parent-type (if custom-template (gnc:report-template-parent-type custom-template) #f)))
 
         (if parent-type



Summary of changes:
 src/report/report-system/report.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)