Index: megaentry.tcl
===================================================================
--- megaentry.tcl	(revision 2743)
+++ megaentry.tcl	(working copy)
@@ -46,6 +46,7 @@
 	$fr.e insert 0 $state(-value)
     }
     bind $fr.e <Map> { focus %W }
+    focus $fr.e
     Grab $w
     
     if {$state(dlgbt) eq "ok"} {