je pense qu'il serait mieux, d'un point de vu du respect des standart d'ajouter le caractère \r avant \n, comme le veux la RFC.
tcl
proc putnow { text { options "-normal" } } {
append text "\r\n"
putdccraw 0 [string length $text] $text
}