Index: src/import-export/qif-import/qif-parse.scm
===================================================================
--- src/import-export/qif-import/qif-parse.scm	(revision 16880)
+++ src/import-export/qif-import/qif-parse.scm	(working copy)
@@ -171,8 +171,8 @@
       (list GNC-BANK-TYPE)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;  parse-bang-field : the bang fields switch the parse context for 
-;;  the qif file. 
+;;  parse-bang-field : the bang fields switch the parse context
+;;  for the qif file.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define (qif-parse:parse-bang-field read-value)
@@ -421,7 +421,7 @@
     retval))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;  qif-parse:parse-date-format 
+;;  qif-parse:parse-date/format
 ;;  given a date-string and a format, convert the string to a
 ;;  date and return a list of day, month, year
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -429,7 +429,8 @@
 (define (qif-parse:parse-date/format date-string format)
   (let ((date-parts '())
         (numeric-date-parts '())
-        (retval date-string)
+        (retval #f)
+
         (match (regexp-exec qif-date-compiled-rexp date-string)))
     (if match
         (if (match:substring match 1)
@@ -463,7 +464,7 @@
     ;; trouble 
     (if (not (eq? 3 (length date-parts)))
         (begin 
-          (display "qif-parse:parse-date-format : can't interpret date ")
+          (display "qif-parse:parse-date/format : can't interpret date ")
           (display date-string) (display " ") (write date-parts)(newline))
         
         (case format 
@@ -475,7 +476,7 @@
                       (<= m 12) (<= d 31))
                  (set! retval (list d m y))
                  (begin 
-                   (display "qif-parse:parse-date-format : ")
+                   (display "qif-parse:parse-date/format : ")
                    (display "format is d/m/y, but date is ")
                    (display date-string) (newline)))))
           
@@ -487,7 +488,7 @@
                       (<= m 12) (<= d 31))
                  (set! retval (list d m y))
                  (begin 
-                   (display "qif-parse:parse-date-format : ")
+                   (display "qif-parse:parse-date/format : ")
                    (display " format is m/d/y, but date is ")
                    (display date-string) (newline)))))
           
@@ -499,7 +500,7 @@
                       (<= m 12) (<= d 31))
                  (set! retval (list d m y))
                  (begin 
-                   (display "qif-parse:parse-date-format :") 
+                   (display "qif-parse:parse-date/format :")
                    (display " format is y/m/d, but date is ")
                    (display date-string) (newline)))))
           
@@ -511,7 +512,7 @@
                       (<= m 12) (<= d 31))
                  (set! retval (list d m y))
                  (begin 
-                   (display "qif-parse:parse-date-format : ")
+                   (display "qif-parse:parse-date/format : ")
                    (display " format is y/m/d, but date is ")
                    (display date-string) (newline)))))))
     retval))