*** menu.tcl.orig       Thu Jan 11 23:58:46 1996
--- menu.tcl    Thu Jan 11 23:59:56 1996
***************
*** 281,288 ****
  proc tkMenuUnpost menu {
      global tkPriv
      set mb $tkPriv(postedMb)
!     set qmb [winfo command $mb]
!
      # Restore focus right away (otherwise X will take focus away when
      # the menu is unmapped and under some window managers (e.g. olvwm)
      # we'll lose the focus completely).
--- 281,291 ----
  proc tkMenuUnpost menu {
      global tkPriv
      set mb $tkPriv(postedMb)
!     if {[string compare $mb ""] != 0} {
!         set qmb [winfo command $mb]
!     } else {
!         set qmb ""
!     }
      # Restore focus right away (otherwise X will take focus away when
      # the menu is unmapped and under some window managers (e.g. olvwm)
      # we'll lose the focus completely).