ReadString problem?

Perturbatio

Function RetroReadString:String(Stream:TStream)
	Local strLen:Int = Readint(Stream)
	Return ReadString(Stream, strLen)
End Function


myStream : TStream = OpenFile("c:\testread.txt")

Print RetroReadString(myStream)

CloseFile(myStream)

End