diff --git a/libgnucash/engine/test/test-split.scm b/libgnucash/engine/test/test-split.scm
index 7cd818342c..96713c44df 100644
--- a/libgnucash/engine/test/test-split.scm
+++ b/libgnucash/engine/test/test-split.scm
@@ -12,7 +12,7 @@
 
 (define (test-split-in-list?)
   (let* ((env (create-test-env))
-	 (today (gnc:date->timepair (gnc-localtime (current-time))))
+	 (today (current-time))
 	 (account-alist (env-create-test-accounts env))
 	 (bank-account (cdr (assoc "Bank" account-alist)))
 	 (expense-account (cdr (assoc "Expenses" account-alist)))