Index: scriptlibs/textsweep/textsweep-main.tcl
==================================================================
--- scriptlibs/textsweep/textsweep-main.tcl
+++ scriptlibs/textsweep/textsweep-main.tcl
@@ -329,11 +329,17 @@
     
     focus -force .f.foldersearch.foldervar
 
 }
 
-
+#clear text contents
+proc clearText  {} {
+    .f.text.frame.t configure -state normal
+    .f.text.frame.t delete 1.0 end
+    .f.text.frame.t configure -state disabled
+}
+    
 
 #set search directory
 proc setDir {} {
 
     global folder
@@ -343,10 +349,12 @@
     global filelist
 
     set searchterm $searchvar
 
     catch {.f.text.list.listbox delete 0 end}
+    catch {clearText}
+
 
     set folder [tk_chooseDirectory -parent . -initialdir $::env(HOME)]
     if { $folder == ""} {
         return; # they clicked cancel
     } else {
@@ -468,13 +476,11 @@
 	.f.text.frame.t configure -state disabled
 	return
 
     }
     
-    .f.text.frame.t configure -state normal
-    .f.text.frame.t delete 1.0 end
-    .f.text.frame.t configure -state disabled
+    clearText
     
     .f.text.frame.t tag configure search -background yellow
 
     set filename [lindex [.f.text.list.listbox get [.f.text.list.listbox curselection]] 0]
 
@@ -553,11 +559,12 @@
     global filelist
 
     set selectedfile [ .f.text.list.listbox get [ .f.text.list.listbox curselection]]
 
     .f.text.list.listbox delete 0 end
-
+    clearText
+    
     set filelist  [glob -type f -nocomplain -directory [join $folder] $patternvar]
     foreach item $filelist {
 	if {[checkTextType $item] >= 0} {
 	    .f.text.list.listbox insert end [list $item]
 	}
@@ -584,18 +591,20 @@
     global searchvar
 
     set searchterm $searchvar
 
     catch {.f.text.list.listbox delete 0 end}
+    catch {clearText}
 
     if {[file isfile $fname]} {
 	return
     }
 
     if {[file isdir $fname]} {
 	set folder $fname
-	.f.text.list.listbox delete 0 end 
+	.f.text.list.listbox delete 0 end
+	clearText
 	set filelist  [glob -type f -nocomplain -directory [join $folder] $patternvar]
 
 	foreach item $filelist {
 	    if {[checkTextType $item] >= 0} {
 		.f.text.list.listbox insert end [list $item]
@@ -688,17 +697,19 @@
     global patternvar
     global searchterm
     global searchvar
     
     catch {.f.text.list.listbox delete 0 end}
+    catch {clearText}
 
     if {[file isfile $folder]} {
 	return
     }
 
     if {[file isdir $folder]} {
-	.f.text.list.listbox delete 0 end 
+	.f.text.list.listbox delete 0 end
+	clearText
 	set filelist  [glob -type f -nocomplain -directory [join $folder] $patternvar]
 
 	foreach item $filelist {
 	    if {[checkTextType $item] >= 0} {
 		.f.text.list.listbox insert end [list $item]