Text Box Onset Focus Fires twice

(defun c:Onset_Outline_tbTabDatumLocX_OnSetFocus ()
  (tcam:pushmsg "X Focus")
  (dcl_TextBox_SetSel Onset_Outline_tbTabDatumLocX 0 -1 t)
)

Left mouse down in text box giving it focus fires event. Left mouse up in box fires event.

Checked events:
RetrunPressed
SetFocus

This is now fixed for the next build.