diff --git a/gnucash/report/html-utilities.scm b/gnucash/report/html-utilities.scm
index 81abad44bf..bd185dac68 100644
--- a/gnucash/report/html-utilities.scm
+++ b/gnucash/report/html-utilities.scm
@@ -79,10 +79,12 @@
       (list)))
 
 (define (gnc:register-guid type guid)
-  (gnc-build-url URL-TYPE-REGISTER (string-append type guid) ""))
+  (and guid  (gnc-build-url URL-TYPE-REGISTER (string-append type guid) "")))
 
 (define (gnc:account-anchor-text acct)
-  (gnc:register-guid "acct-guid=" (gncAccountGetGUID acct)))
+  (if acct
+      (gnc:register-guid "acct-guid=" (gncAccountGetGUID acct))
+      (format #t "No Account!")))
 
 (define (gnc:split-anchor-text split)
   (gnc:register-guid "split-guid=" (gncSplitGetGUID split)))