problems reading a text file

[Brian]

I am trying to set up an update method
it downloads a text file with a version number
then checks that against the current version and prompts to update
It downloads and saves just fine but when i try to read from it
string s1 has no value

ne idea what i am doing wrong
this is rb 2005r4 on mac osX


  dim http as new HTTPSocket
  dim f as FolderItem
  dim s1, s2, s3 as String
  dim tin as TextInputStream

    // make status arrows visible
  pw.Visible = true

    // save file in temp folder
  f = DesktopFolder.Child("CTversion.txt")
  
http.Get("http://www.kage-software.com/downloads/files/CTversion.txt";, 
f)

  if f.exists then
    tin = f.OpenAsTextFile

      // extract version number
    s1 = tin.ReadLine
    s3 = s1.Replace("version=", "")

    s2 = str(App.MajorVersion) + "." + str(App.MinorVersion)
    s2 = s2 + "." + str(App.BugVersion)
    if s3 = s2 then
      ef.text = "You have the latest version."
    else
      ef.text = "New version is available." + EndOfLine + s1
    end if

    // remove the temp file
    f.Delete
  end if

    // hide status arrows
  pw.Visible = false

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>