I've noticed it's not a default proc, so perhaps this could be added and/or be useful to someone else.
proc
trim(msg as text)
var/st = 1
var/len = length(msg)
while(st < len && text2ascii(msg,st) <= 32)
st++
while(st < len && text2ascii(msg,len) <= 32)
len--
return ((st > 0) || (len < length(msg)))? copytext(msg, st, len+1):msg