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