diff --git a/gnucash/import-export/qif-imp/qif-to-gnc.scm b/gnucash/import-export/qif-imp/qif-to-gnc.scm
index 193c67ea61..dda5214d2a 100644
--- a/gnucash/import-export/qif-imp/qif-to-gnc.scm
+++ b/gnucash/import-export/qif-imp/qif-to-gnc.scm
@@ -499,10 +499,11 @@
                           (G_ (format #f "Warning: cannot find commodity for symbol ~a." current-symbol))))))
             (if (not (equal? commodity #f))
                 (if (not (duplicate-price? pricedb commodity default-currency price))
-                    (set! pruned-prices (append pruned-prices (list price)))
+                    (set! pruned-prices (cons price pruned-prices))
                     (set! pruned-price-count (+ 1 pruned-price-count))))
             (update-progress))
          sorted-prices)
+        (set! pruned-prices (reverse pruned-prices))
 
         (if progress-dialog
             (begin