From 99a8052096b101fb013a405dbd06c5b9784a4380 Mon Sep 17 00:00:00 2001
From: Jeff Lenk <jeff@jefflenk.com>
Date: Wed, 2 Jan 2013 16:11:34 -0600
Subject: [PATCH] FS-4768 windows fix long term initial build problem

---
 libs/win32/util.vbs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/libs/win32/util.vbs b/libs/win32/util.vbs
index d47ccbd1b1..887415f437 100644
--- a/libs/win32/util.vbs
+++ b/libs/win32/util.vbs
@@ -97,9 +97,13 @@ End Sub
 
 Sub GetCompressionTools(DestFolder)
 	Dim oExec
+	Dim tries
+
 	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
-	If Not FSO.FileExists(DestFolder & "7za.exe") Then 
-		If Not FSO.FileExists(DestFolder & "7za.tag") Then 
+	tries = 0
+	While Not FSO.FileExists(DestFolder & "7za.exe") And tries < 2
+		WScript.Sleep(Int(10000*Rnd)) 
+		If Not FSO.FileExists(DestFolder & "7za.tag") And Not FSO.FileExists(DestFolder & "7za.exe") Then 
 			Set MyFile = fso.CreateTextFile(DestFolder & "7za.tag", True)
 			MyFile.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time")
 			MyFile.Close
@@ -109,8 +113,9 @@ Sub GetCompressionTools(DestFolder)
 			FSO.DeleteFile DestFolder & "7za.tag" ,true 
 		Else
 			WScript.Sleep(5000)
+			tries = tries + 1
 		End If	
-	End If	
+	WEnd	
 End Sub
 
 Sub GetWgetEXE(DestFolder)