There you go! :)

>Or even shorter
>>

>>cStringIn = 'Peter the embedded      space    man'
>>cStringOut = cStringIn
>>
>do while space(2) $ cStringOut
>    cStringOut = strtran( cStringOut, space(2), space(1) )
>enddo
>>
>>? cStringOut
>>

>>
>< SNIP >
>
>You can also use Reduce( ) function from FoxTools library