Class File

readTo: end  | line result |

	result <- ''.

	[(line <- self readLine) notNil and: [ line ~= end]]

		whileTrue: [ result <- result + line + Char newline asString ].

	^ result