residual storage through TUI error! help!!!!!!!!!!

sophie

now i want to store the residual which print in console to be a file,but my process is executed though TUI,i write these commands in my journal file:

;-------------------------------------------------------------- (define port) (set! port (open-output-file "residuals.dat"))

(do ((i 0 (+ i 1))) ((= i (length (solver-residuals)))) (format port "~a ~2t" (car (list-ref (solver-residuals) i))) ) (newline port)

(cx-gui-do cx-activate-item "MenuBar*SolveMenu*Execute Commands...")

(cx-gui-do cx-set-integer-entry "Execute Commands*IntegerEntry1(Defined Commands)" 1)

(cx-gui-do cx-activate-item "Execute Commands*IntegerEntry1(Defined Commands)")

(cx-gui-do cx-set-toggle-button "Execute Commands*Frame2*Table2*CheckButton6" #f)

(cx-gui-do cx-activate-item "Execute Commands*Frame2*Table2*CheckButton6")

(cx-gui-do cx-set-text-entry "Execute Commands*Frame2*Table2*TextEntry10" "(do ((i 0 (+ i 1))) ((= i (length (solver-residuals)))) (format port "~a ~2t" (cdr (list-ref (solver-residuals) i))) ) (newline port)")

(cx-gui-do cx-activate-item "Execute Commands*PanelButtons*PushButton1(OK)")

(cx-gui-do cx-activate-item "Solution Initialization*PanelButtons*PushButton2(Cancel)")

solve/initialize/compute-defaults/pressure-far-field

solve/iterate 20 ;--------------------------------------------------- but the error message:

Error: eval: unbound variable Error Object: ~a

Warning: An error or interrupt occurred while reading the journal file. Some commands may not have been completed.

if i change the line contain ~a to be:

(cx-gui-do cx-set-text-entry "Execute Commands*Frame2*Table2*TextEntry10" "file read-journal residual.jou")

and in the content of the residual.jou is as follows

;--------------------------------------------------------------- (do ((i 0 (+ i 1))) ((= i (length (solver-residuals)))) (format port "~a ~2t" (cdr (list-ref (solver-residuals) i))) ) (newline port) ;---------------------------------------------------------------

the error message: file read-journal Error: A journal is currently open for input or output. You cannot read and write a journal at the same time, or read two journals simultaneously. Error Object: #f residual.jou invalid command [residual.jou]

can you give me some advices?

thanks a lot!

sophie