diff --git a/gnucash/import-export/qif-imp/qif-file.scm b/gnucash/import-export/qif-imp/qif-file.scm
index 1429b54835..500073aae7 100644
--- a/gnucash/import-export/qif-imp/qif-file.scm
+++ b/gnucash/import-export/qif-imp/qif-file.scm
@@ -54,8 +54,7 @@
   (make-regexp "^\\.\\.\\."))
 
 (define (not-bad-numeric-string? input)
-  (let ((match (regexp-exec qif-bad-numeric-rexp input)))
-    (if match #f #t)))
+  (not (regexp-exec qif-bad-numeric-rexp input)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;