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)
@@ -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,7 @@
 (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 +463,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 +475,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 +487,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 +499,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 +511,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))
