Gnucash qif import problem

In unknown file:
   ?: 14  (letrec (#) (if progress-dialog #) (hash-fold # #t qif-acct-map) ...)
In /usr/share/gnucash/scm/qif-import/qif-to-gnc.scm:
 370: 15* [for-each #<procedure #f (qif-file)> (#)]
In unknown file:
   ?: 16* [#<procedure #f #> #]
In /usr/share/gnucash/scm/qif-import/qif-to-gnc.scm:
 376: 17* [for-each #<procedure #f (xtn)> (# # # # ...)]
In unknown file:
   ?: 18* [#<procedure #f #> #]
In /usr/share/gnucash/scm/qif-import/qif-to-gnc.scm:
 381: 19* (if (not (qif-xtn:mark xtn)) (let* (#) (xaccTransBeginEdit gnc-xtn) ...))
 383: 20  (let* ((gnc-xtn #)) (xaccTransBeginEdit gnc-xtn) ...)
 392: 21* [qif-import:qif-xtn-to-gnc-xtn # # # ...]
 431: 22  (let (# # # # ...) (cond # # #) (if qif-payee #) ...)
 507: 23* (if (not qif-security) (begin # # # ...) (let* # # # ...))
 508: 24  (begin (set! near-acct-info #) (set! near-acct-name #) ...)
 519: 25* [for-each #<procedure #f (qif-split)> (#)]
In unknown file:
   ?: 26* [#<procedure #f #> #]
In /usr/share/gnucash/scm/qif-import/qif-to-gnc.scm:
 521: 27* (if (not (qif-split:mark qif-split)) (let (# # # ...) (if # #) ...))
 522: 28  (let (# # # # ...) (if # #) (set! near-split-total #) ...)
 576: 29* (set! far-acct-name (qif-map-entry:gnc-name far-acct-info))
 576: 30* [qif-map-entry:gnc-name #f]
In unknown file:
   ?: 31  (if (eq? # #) (struct-ref obj 3) (%record-type-error # obj))
   ?: 32* [eq? ...
   ?: 33* [struct-vtable #f]
<unnamed port>: In procedure struct-vtable in expression (struct-vtable obj):
<unnamed port>: Wrong type argument in position 1 (expecting struct): #f