Not sure about your exact use, but this works for me:
fconfigure $port -mode 19200,n,8,1 -blocking 0 -translation auto -buffering none -handshake xonxoff
(Change the baud rate to what you are using.)
More code, if needed:
This works great with the text widget for a gui capture:
proc bkLog {} {...