diff --git a/gnucash/report/business-reports/balsheet-eg.eguile.scm b/gnucash/report/business-reports/balsheet-eg.eguile.scm
index 4066ad5456..1bcec52bf3 100644
--- a/gnucash/report/business-reports/balsheet-eg.eguile.scm
+++ b/gnucash/report/business-reports/balsheet-eg.eguile.scm
@@ -128,7 +128,7 @@
 <html>
 <head>
 <meta http-equiv="content-type" content="text-html; charset=utf-8">
-<title><?scm:d coyname ?> <?scm:d reportname ?> <?scm:d (gnc-print-date opt-date-tp) ?></title>
+<title><?scm:d coyname ?> <?scm:d reportname ?> <?scm:d (qof-print-date opt-date) ?></title>
 
 <?scm (if css? (begin ?>
 <link rel="stylesheet" href="<?scm:d opt-css-file ?>" type="text/css">
@@ -157,7 +157,7 @@
   <table border="0" cellpadding="16"><tr><td> <!-- hack for GTKHTML -->
 <?scm )) ?>
 <h3><?scm:d coyname ?></h3>
-<h2><?scm:d reportname ?> <?scm:d (gnc-print-date opt-date-tp) ?></h2>
+<h2><?scm:d reportname ?> <?scm:d (qof-print-date opt-date) ?></h2>
 
 <?scm
   ;; This is where the work is done.
diff --git a/gnucash/report/business-reports/balsheet-eg.scm b/gnucash/report/business-reports/balsheet-eg.scm
index 5df41b66c3..96cfa52b46 100644
--- a/gnucash/report/business-reports/balsheet-eg.scm
+++ b/gnucash/report/business-reports/balsheet-eg.scm
@@ -381,10 +381,9 @@
          (opt-price-source     (get-option commodities-page optname-price-source))
          (opt-show-foreign?    (get-option commodities-page optname-show-foreign))
          (opt-report-title     (get-option general-page     optname-report-title))
-         (opt-date-tp          (gnc:timepair-end-day-time
+         (opt-date             (gnc:time64-end-day-time
                                  (gnc:date-option-absolute-time
                                    (get-option general-page optname-date))))
-         (opt-date-secs        (gnc:timepair->secs          opt-date-tp))
          (opt-columns          (get-option display-page     optname-columns))
          (opt-font-family      (get-option display-page     optname-font-family))
          (opt-font-size        (get-option display-page     optname-font-size))
@@ -424,7 +423,7 @@
 
          ;; exchange rates calculation parameters
          (exchange-fn
-           (gnc:case-exchange-fn opt-price-source opt-report-commodity opt-date-tp))
+           (gnc:case-exchange-fn opt-price-source opt-report-commodity opt-date))
          ; List of commodities (other than the local one) used
          ; so that exchange rate table can be displayed.
          ; xlist will become an association list of (comm . #t) pairs
@@ -524,7 +523,7 @@
                       (>= (gnc-account-get-current-depth (car account-list)) curr-depth))
                  (let* ((account (car account-list))
                         (comm    (xaccAccountGetCommodity account))
-                        (bal     (xaccAccountGetBalanceAsOfDate account opt-date-secs))
+                        (bal     (xaccAccountGetBalanceAsOfDate account opt-date))
                         (depth   (flattened-acc-depth account))
                         (treedepth 1)
                         ; Next account only qualifies as 'deeper' if we're not flattening
