Import crash with 1.6.0

[Clinton Popetz]

Hello,

When trying to import a qif into 1.6.0 with the following contents:

!Type:Bank
D06/10/01
T-19.95
N
PA GROCERY STORY
^


I get get a crash with the appended backtrace.  This qif data may be
malformed...however it's what my bank gives me, and it worked under
gnucash 1.4.X.

I'll try futzing around with the importer code, but I thought I'd send
this along in case it's something easy.

				-Clint

Backtrace:
12* [#<procedure #> #]
13* [for-each #<procedure (split)> (#)]
14* [#<procedure #> #]
15* (let (# # #) (if # #))
16  (if (not xtn-is-acct) (begin (set! xtn-cat #) (set! entry #) (if #
#) ...))
17  (begin (set! xtn-cat #) (set! entry #) (if # #) ...)
18* (if (not entry) (set! entry (qif-import:guess-acct xtn-cat #
...)))
19  (set! entry (qif-import:guess-acct xtn-cat (if # # #)
gnc-acct-info))
20* [qif-import:guess-acct  (9 8) ...]
21  (let* (# #) (qif-map-entry:set-qif-name! retval acct-name) ...)
22* [qif-import:find-similar-acct  (9 8) ...]
23  (let* (# # #) (for-each # gnc-acct-info) (for-each #
same-type-accts) ...)
24* [for-each #<procedure (gnc-acct)> (# # # # ...)]
25* [#<procedure (gnc-acct)> (Contract Income:Contract #)]
26* (if # #)
27* [qif-import:possibly-matching-name?  (Contract Income:Contract #)]
28  (or (string=? # #) (string=? # #) (string-match # #))
    ...
29  [string-match  income:contract]
30  (let ((rx #) (start #)) (regexp-exec rx str start))
31* [gsubr-apply #<primitive-procedure make-regexp> ]

/usr/local/share/guile/1.4/ice-9/regex.scm:98:13: In procedure
gsubr-apply in expression (make-regexp pattern):
/usr/local/share/guile/1.4/ice-9/regex.scm:98:13: empty
(sub)expression