qif importing bug?

[Cengiz Alaettinoglu]

I am attaching a qif file (contains one transaction, generated by MS
Money 2000) importing this to an otherwise empty gnucash causes a fatal
error. I get the following on the terminal. This happens after pressing
next on the currency page (and answering all question with their
defaults).

gnucash
18* [#<procedure #> #]
19* [for-each #<procedure (xtn)> (#)]
20* [#<procedure #> #]
21* (if (not (qif-xtn:mark xtn)) (begin (let # # # ...)))
22  (begin (let ((gnc-xtn #)) (gnc:transaction-begin-edit gnc-xtn) ...))
23  (let ((gnc-xtn #)) (gnc:transaction-begin-edit gnc-xtn) ...)
24* [qif-import:qif-xtn-to-gnc-xtn # # # ...]
25  (let (# # # ...) (apply gnc:transaction-set-date gnc-xtn ...) ...)
26* (if (not qif-security) (begin # # # ...) (let* # # # ...))
27  (begin (set! near-acct-info #) (set! near-acct-name #) ...)
28* [for-each #<procedure (qif-split)> (# #)]
29* [#<procedure #> #]
30* (if (not (qif-split:mark qif-split)) (let (# # # ...) (if # #) ...))
31  (let (# # # # ...) (if # #) (set! near-split-total #) ...)
32* (cond (# #) (# #) (#t # #))
33* (set! far-acct-info (or (and # # # ...) (and # # #)))
34* (or (and (string? qif-payee) (not #) ...) (and (string? memo) (not
#) ...))
35  (and (string? memo) (not (string=? qif-memo )) ...)
36* [not ...
37* [string=? #f ]
/usr/share/gnucash/scm/qif-import/qif-to-gnc.scm:483:39: In procedure
string=? in expression (string=? qif-memo ""):
/usr/share/gnucash/scm/qif-import/qif-to-gnc.scm:483:39: Wrong type
argument in position 1: #f

And here is the qif file:
!Type:Bank
D6/16/97
CX
MAlaettinoglu, Cengiz
T2,098.82
PAccounts Pay Payment    Usc
L/Travel:N|[Travel]
S/Travel:N|[Travel]
ERejklavik
$2,000.00
S/Petty Cash:ISDN|[Telecom]
$98.82
^