Index: stringscan.rb
==================================================================
--- stringscan.rb
+++ stringscan.rb
@@ -147,11 +147,11 @@
 	$searchmenu = TkMenu.new($menubar)
 	$menubar.add :cascade, :menu => $searchmenu, :label => 'Search'
 	$searchmenu.add :command, :label => 'Choose Directory...', 'accelerator' => "#{$accelkey}+O", :command => proc{choosedir}
 	$searchmenu.add :command, :label => 'Run Search', 'accelerator' => "#{$accelkey}+R", :command => proc{stringgrep}
 	if $platform == 'win32'
-		$searchmenu.add :command, :label => "Exit", :command=>exit, 'accelerator' => "#{$accelkey}+Q"
+		$searchmenu.add :command, :label => "Exit", :command=>proc{exit}, 'accelerator' => "#{$accelkey}+Q"
 	end
 	if $platform == 'aqua'
 		Tk.tk_call("windowlist::windowMenu",  $menubar)
 	end
 	$helpmenu = TkSysMenu_Help.new($menubar)