Leaking Message Handle

Hi,

Can anybody spot why I’m getting a leaking message handle in the following code?

# Composite multisegment transactions

#

proc baseJoinTrans { args } {

  global omsg

  set dispList {}

  keylget args MODE mode                   ;# Get cloverleaf mode        

  if {[string equal $mode start]} {

      # Perform special init functions

      set omsg “”

      othSlotInit EPISODES 999999

  }

  if {[keylget args MSGID mh] == 1} {

     lappend dispList “KILL $mh”                  

     set message [msgget $mh]                ;# All of message

     set nlsEnd [msgget $mh 9 3]            ;# NLS or END

     set omsg $omsg$message

     if {[string equal $nlsEnd END]} {  

        set newmsg [msgcopy $mh]

        msgset $newmsg $omsg

        lappend dispList “CONTINUE $newmsg”

        set omsg “”

     }            

  }

  return $dispList

}

I’ve disposed of both message handles (I think) but I’m still getting a leak.

Regards

Garry