- (set-cdr! (assoc (car ires) fnetnodes) (caddr ires))
- (set! fnetnodes (cons (cons (car ires) (caddr ires)) fnetnodes))))))))
+ (set-cdr! (assoc (car ires) fnetnodes) (list-ref ires 5))
+ (set! fnetnodes (cons (cons (car ires) (list-ref ires 5)) fnetnodes))))))))