Index: tol/stdlib/general/grammars/_real.tol
===================================================================
--- tol/stdlib/general/grammars/_real.tol	(revision 0e07e126d545df005f7763b9d4712bf0f782eb96)
+++ tol/stdlib/general/grammars/_real.tol	(revision 878425e181e0a90d5ff974cc0b41f61159d94045)
@@ -987,41 +987,4 @@
 //////////////////////////////////////////////////////////////////////////////
 
-Text GetVersionFromTolProject(Text branch)
-{
-  Text tcl_helper = "
-package require http
-
-proc ::check_url_error { url data } {
-  if {![regexp {v\d\.\d\.\d b\.\d+} $data]} {
-    error \"url $url is not available or has an invalid contents\"
-  }
-}
-
-proc ::get_win_release { {branch {official}} } {
-  set name ${branch}_tol_release_win.txt
-  set url \"http://packages.tol-project.org/win32/${name}\"
-  
-  set data [http::data [http::geturl $url]]
-  check_url_error $url $data
-  set data
-}";
-  
-  Set result0 = Tcl_Eval(tcl_helper);
-  Text If(result0["status"], Text {
-      
-      Set result = Tcl_Eval("::get_win_release " + branch);
-      Text If(result["status"], Text result["result"],
-        {
-          WriteLn(result["result"], "W");
-          Text ""
-        })
-    },
-    {
-      WriteLn(result0["result"], "W");
-      Text ""
-    })  
-};
-
-
 
 //////////////////////////////////////////////////////////////////////////////
Index: tol/stdlib/gui/tcl/_tclutils.tol
===================================================================
--- tol/stdlib/gui/tcl/_tclutils.tol	(revision 0e07e126d545df005f7763b9d4712bf0f782eb96)
+++ tol/stdlib/gui/tcl/_tclutils.tol	(revision 878425e181e0a90d5ff974cc0b41f61159d94045)
@@ -363,4 +363,12 @@
 GetDirHelpSection);
 //////////////////////////////////////////////////////////////////////////////
+
+//////////////////////////////////////////////////////////////////////////////
+Text GetVersionFromTolProject(Text branch)
+//////////////////////////////////////////////////////////////////////////////
+{
+  GetUrlContents("http://packages.tol-project.org/win32/"+
+                 branch+"_tol_release_win.txt")
+};
 
 //////////////////////////////////////////////////////////////////////////////