Evaluated proc twitcentre str { if {[nlines $str] == 1} { return " \n$str\n " } { return $str } }