Class Array

asTextArray | na |

   <18 'THIS SHOULD NOT BE CALLED (asTextArray)'>.

   na <- Array new: self size.

   1 to: self size do: [:i | na at: i put: (self at: i) printString].

   ^ na