Index: softwareupdate/softwareupdate.tcl
==================================================================
--- softwareupdate/softwareupdate.tcl
+++ softwareupdate/softwareupdate.tcl
@@ -69,10 +69,11 @@
 	http::config -useragent "$appname Update Check"
 
 	if [catch {http::geturl $versionurl} msg] {
 	    puts "error: $msg"
 	    tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
+	catch {destroy .updateprogress}
 	    return
 	} 
 
 	set versionnumber [string trim [http::data [http::geturl $versionurl]]]
 	if [expr $currentversion < $versionnumber] {
@@ -136,10 +137,11 @@
 	set changeurl https://www.codebykevin.com/$appname-changes.tcl
 
         if [catch {http::geturl $changeurl} msg] {
 	    puts "error: $msg"
 	    tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
+	    catch {destroy .updateprogress}
 	    return
 	} 
 
 
 	set changelist [http::data [http::geturl $changeurl]]
@@ -341,12 +343,9 @@
 	}
 
 	catch {destroy .downloadprogress}
 
     }
-
-
-
 
     namespace export *
 
 }