--- tree-orig.tcl	2009-07-24 18:01:56.000000000 -0400
+++ tree.tcl	2009-08-03 18:15:42.000000000 -0400
@@ -222,6 +222,7 @@
     Tree::bindText  $path <Control-Button-1> [list $selectcmd $path toggle]
     Tree::bindImage $path <Control-Button-1> [list $selectcmd $path toggle]
 
+
     # Add sentinal bindings for double-clicking on items, to handle the 
     # gnarly Tk bug wherein:
     # ButtonClick
@@ -1869,6 +1870,7 @@
     }
 }
 
+
 # Tree::_keynav --
 #
 #	Handle navigational keypresses on the tree.
@@ -1923,6 +1925,7 @@
 		$win selection set [lindex $nodes $index]
 		_set_current_node $win [lindex $nodes $index]
 		$win see [lindex $nodes $index]
+		event generate $win <<TreeSelect>>
 		return
 	    }
 	}
@@ -1941,6 +1944,7 @@
 		$win selection set [lindex $nodes $index]
 		_set_current_node $win [lindex $nodes $index]
 		$win see [lindex $nodes $index]
+		event generate $win <<TreeSelect>>
 		return
 	    }
 	}
@@ -1959,6 +1963,7 @@
 			$win selection set [lindex $nodes $index]
 			_set_current_node $win [lindex $nodes $index]
 			$win see [lindex $nodes $index]
+			event generate $win <<TreeSelect>>
 			return
 		    }
                 }
@@ -1999,6 +2004,7 @@
 		$win selection set $parent
 		_set_current_node $win $parent
 		$win see $parent
+		event generate $win <<TreeSelect>>
 		return
 	    }
 	}
