diff --git a/gnucash/report/standard-reports/general-ledger.scm b/gnucash/report/standard-reports/general-ledger.scm
index ffd0a3b117..7535441368 100644
--- a/gnucash/report/standard-reports/general-ledger.scm
+++ b/gnucash/report/standard-reports/general-ledger.scm
@@ -148,7 +148,10 @@
 
 (define (general-ledger-renderer report-obj)
   ;; just delegate rendering to the Transaction Report renderer...
-  ((gnc:report-template-renderer/report-guid xactrptguid xactrptname) report-obj))
+  (let ((document ((gnc:report-template-renderer/report-guid xactrptguid xactrptname)
+                   report-obj)))
+    (gnc:html-document-set-title! document (_ reportname))
+    document))
 
 (gnc:define-report 
  'version 1