diff --git a/src/scm/qif-import/qif-dialog-utils.scm b/src/scm/qif-import/qif-dialog-utils.scm
index 6f92740230..ffeff8e1d1 100644
--- a/src/scm/qif-import/qif-dialog-utils.scm
+++ b/src/scm/qif-import/qif-dialog-utils.scm
@@ -419,7 +419,8 @@
                          (set! entry 
                                (qif-import:guess-acct
                                 xtn-cat
-                                (if (> (qif-split:amount split) 0)
+                                (if (gnc:numeric-positive-p 
+                                     (qif-split:amount split))
                                     (list GNC-INCOME-TYPE GNC-EXPENSE-TYPE)
                                     (list GNC-EXPENSE-TYPE GNC-INCOME-TYPE))
                                 gnc-acct-info)))
@@ -495,7 +496,8 @@
                               entry (default-unspec-acct))
                              (qif-map-entry:set-allowed-types!
                               entry 
-                              (if (> (qif-split:amount split) 0)
+                              (if (gnc:numeric-positive-p
+                                   (qif-split:amount split))
                                   (list GNC-INCOME-TYPE GNC-EXPENSE-TYPE
                                         GNC-BANK-TYPE GNC-CCARD-TYPE 
                                         GNC-LIABILITY-TYPE GNC-ASSET-TYPE
diff --git a/src/scm/qif-import/qif-file.scm b/src/scm/qif-import/qif-file.scm
index 9e085c64e8..4b3e12fd05 100644
--- a/src/scm/qif-import/qif-file.scm
+++ b/src/scm/qif-import/qif-file.scm
@@ -445,7 +445,7 @@
 ;; if the date format was ambiguous, this will get called to reparse.
 (define (qif-file:reparse-dates self new-format)
   (check-and-parse-field 
-   qif-xtn:date qif-xtn:set-date! 
+   qif-xtn:date qif-xtn:set-date! equal?
    qif-parse:check-date-format (list new-format)
    qif-parse:parse-date/format 
    (qif-file:xtns self)