diff --git a/src/import-export/qif-import/qif-file.scm b/src/import-export/qif-import/qif-file.scm
index 9738637483..66c6118ba6 100644
--- a/src/import-export/qif-import/qif-file.scm
+++ b/src/import-export/qif-import/qif-file.scm
@@ -701,9 +701,9 @@
       ;; just ignore the format ambiguity.  Otherwise, it's really an
       ;; error.  ATM since there's no way to correct the error let's 
       ;; just leave it be.
-      (if (or (all-formats-equivalent? getter parser equiv-thunk formats 
-                                       objects printer errormsg errortype)      
-              (eq? on-error 'guess-on-ambiguity))
+      (if (or (eq? on-error 'guess-on-ambiguity)
+              (all-formats-equivalent? getter parser equiv-thunk formats 
+                                       objects printer errormsg errortype))
           (set! format (car formats))
           (begin 
             (errormsg errortype formats)