Test steps

D:\cloverleaf\cis6.1\integrator\t-tcl.msg\test>hcitcl
hcitcl>set msgvar [msgcreate]
message0
hcitcl>msgset $msgvar "message data"
hcitcl>msgappend -cvtnull ^N $msgvar "^APPENDED ST^UFF"
hcitcl>puts [msgget -cvtnull ! $msgvar]
message data^APPENDED ST^UFF
hcitcl>msgset -cvtnull ^N $msgvar " message data^NAPPENDED ST^NUFF "
hcitcl>puts [msgget -cvtnull ! $msgvar]
message data!APPENDED ST!UFF
hcitcl>
D:\cloverrel_58\rats\suites>hcitcl
hcitcl>set msgvar [msgcreate]
message0
hcitcl>msgset $msgvar "message data"
hcitcl>msgappend -cvtnull ^N $msgvar "^APPENDED ST^UFF"
hcitcl>puts [msgget -cvtnull ! $msgvar]
message data!APPENDED ST!UFF