*** mainframe.tcl.orig	Thu Oct 11 17:29:06 2001
--- mainframe.tcl	Thu Oct 11 17:30:41 2001
***************
*** 423,429 ****
              lappend _widget($path,tags,$tag) $menubar $count
  	    # ericm@scriptics:  Add a tagstate tracker
  	    if { ![info exists _widget($path,tagstate,$tag)] } {
! 		set _widget($path,tagstate,$tag) 0
  	    }
          }
  	# ericm@scriptics.com:  Add mapping from menu items to tags
--- 423,429 ----
              lappend _widget($path,tags,$tag) $menubar $count
  	    # ericm@scriptics:  Add a tagstate tracker
  	    if { ![info exists _widget($path,tagstate,$tag)] } {
! 		set _widget($path,tagstate,$tag) 1
  	    }
          }
  	# ericm@scriptics.com:  Add mapping from menu items to tags
***************
*** 464,470 ****
              lappend _widget($path,tags,$tag) $menu $count
  	    # ericm@scriptics:  Add a tagstate tracker
  	    if { ![info exists _widget($path,tagstate,$tag)] } {
! 		set _widget($path,tagstate,$tag) 0
  	    }
          }
  	# ericm@scriptics.com:  Add mapping from menu items to tags
--- 464,470 ----
              lappend _widget($path,tags,$tag) $menu $count
  	    # ericm@scriptics:  Add a tagstate tracker
  	    if { ![info exists _widget($path,tagstate,$tag)] } {
! 		set _widget($path,tagstate,$tag) 1
  	    }
          }
  	# ericm@scriptics.com:  Add mapping from menu items to tags
