diff --git a/ChangeLog b/ChangeLog
index ca8ff6652f..1142041ef7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-05-17  Derek Atkins  <derek@ihtfp.com>
+
+	* src/import-export/qif-import/qif-file.scm:  the numeric test
+	  regex was broken and would fail on ALL numerics, causing all
+	  imports to be of value zero.  Oops.  I _thought_ I tested this,
+	  but clearly not sufficiently.  :(
+
 2003-05-16  David Hampton  <hampton@employees.org>
 
 	* src/gnome/window-main.c: 
diff --git a/src/import-export/qif-import/qif-file.scm b/src/import-export/qif-import/qif-file.scm
index 3ce7454826..366f97839f 100644
--- a/src/import-export/qif-import/qif-file.scm
+++ b/src/import-export/qif-import/qif-file.scm
@@ -18,10 +18,11 @@
  (else (use-modules (ice-9 rdelim))))
 
 (define qif-bad-numeric-rexp 
-  (make-regexp "^\.\.\."))
+  (make-regexp "^\\.\\.\\."))
 
 (define (not-bad-numeric-string? input)
-  (if (regexp-exec qif-bad-numeric-rexp input) #f #t))
+  (let ((match (regexp-exec qif-bad-numeric-rexp input)))
+    (if match #f #t)))
 
 (define (qif-file:read-file self path ticker-map)
   (false-if-exception
@@ -122,7 +123,7 @@
                        ;; T : total amount 
                        ((#\T)
                         (if (and default-split (not-bad-numeric-string? value))
-                            (qif-split:set-amount! default-split value)))
+			    (qif-split:set-amount! default-split value)))
                        
                        ;; P : payee
                        ((#\P)