diff --git a/src/report/report-system/eguile-gnc.scm b/src/report/report-system/eguile-gnc.scm
index 94d4b31287..f47a8587f3 100644
--- a/src/report/report-system/eguile-gnc.scm
+++ b/src/report/report-system/eguile-gnc.scm
@@ -156,7 +156,7 @@
 
   ;; recursively process input stream
   (define (loop inp needle other code? line)
-    (if (eq? line "")
+    (if (equal? line "")
       (set! line (read-line inp 'concat)))
     (if (not (eof-object? line)) 
       (let ((match (regexp-exec needle line)))