Skill script only working correctly...once

When descending in a schematic a popup window called Descend opens with options "new tab", "current tab", and "new window". I'm trying to make a bindkey that understands that I want the "new tab" option and to OK the form. What I've written so far works but only one time. I get no errors just a 't' result in my CIW. Does anyone know why this is happening? Here is the script:

procedure( schDescendNewTab()
    if( boundp('schDescendForm) then
        if( schDescendForm && schDescendForm->_formName == "Descend" then
            if( schDescendForm->schDescendViewNameField->value
                schDescendForm->schDescendRadioField2->value= "new tab"
            );if
            hiFormDone(schDescendForm)
            );if
       );if
);proc
hiSetBindKey("Schematics" "<Key>j" "schDescendNewTab")

 Is there a better way to write this?

thanks,

Mark