It seems you are having the same \^M (backslash followed by carriage return) problem again, only in a different Tcl file. You could backup your source tree and then try executing the following command in the root directory of your server:
find -name '*.tcl' | xargs perl -pi -e 's/\\\r/\\/g'
This should replace all occurencies of \^M with just \. Alternatively I think you could use the utility dos2unix.
