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