diff --git a/sources/gorilla.tcl b/sources/gorilla.tcl
index 2d46ce5..b6c73c3 100755
--- a/sources/gorilla.tcl
+++ b/sources/gorilla.tcl
@@ -7041,6 +7041,8 @@ proc gorilla::Find {} {
 		
 	} else {
 		wm deiconify $top
+		focus $top.text.e
+		$top.text.e selection range 0 end
 		# Dialog_Wait
 	}