I know there has to be a better way of doing this than

FUNCTION rem_mult_blanks(tcString)
DO WHILE "  " $ tcString
  tcString = STRTRAN(tcString,"  "," ")
ENDDO

RETURN tcString

but I can't seem to remember what it is.

Thanks to all.