diff --git a/gnucash/report/report-system/eguile-utilities.scm b/gnucash/report/report-system/eguile-utilities.scm
index f3e3e49234..71c8fdf912 100644
--- a/gnucash/report/report-system/eguile-utilities.scm
+++ b/gnucash/report/report-system/eguile-utilities.scm
@@ -54,7 +54,7 @@
 
 (define-public safe-cadr
   (match-lambda
-    ((_ x . _) x)
+    ((_ x . y) x)
     (_ '())))
 
 (define-public (find-file fname)