diff --git a/ChangeLog b/ChangeLog
index 7b29a774db..a0b1d37cd0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-10-13  Derek Atkins  <derek@ihtfp.com>
+
+	* src/import-export/qif-import/qif-object.scm:
+	  provide a default account name so we don't crash when someone
+	  imports a broken QIF that has a !Account without an account name.
+	  Fixes bug #155244.
+
 2004-10-08  Derek Atkins  <derek@ihtfp.com>
 
 	* engine/gw-engine-spec.scm:
diff --git a/src/import-export/qif-import/qif-objects.scm b/src/import-export/qif-import/qif-objects.scm
index 711b6cc95c..e65b00a54a 100644
--- a/src/import-export/qif-import/qif-objects.scm
+++ b/src/import-export/qif-import/qif-objects.scm
@@ -358,6 +358,7 @@
 (define (make-qif-acct)
   (let ((retval (make-simple-obj <qif-acct>)))
     (qif-acct:set-type! retval "Bank")
+    (qif-acct:set-name! retval "Default Account")
     retval))
 
 (define qif-acct?