Cisco Tcl Script Help Pt1

Hello Experts,

I've compiled the attached script. However, when I attempt to register the script I get the following error:

Router(config)#even ma p ISPTest
Embedded Event Manager configuration: ISPTest does not have valid policy extension
Router(config)#even ma p ISPTest.tcl
Compile check and registration failed:syntax error in expression "$arr_einfo(condition) == Occurred"
    ("if" test expression)
    while compiling
"if {$arr_einfo(condition) == Occurred} {

    if [catch {cli_open} result] {
        error $result $errorInfo
    } else {
        array set cli1 $res..."
Tcl policy execute failed: syntax error in expression "$arr_einfo(condition) == Occurred"couldn't compile policy file to bytecode: Unknown error 0

Embedded Event Manager configuration: failed to retrieve intermediate registration result for policy ISPTest.tcl: Unknown error 0

I wonder if someone could take a look at the script and let me know where I might be going wrong?

Cheers

Carlton
ipSLAEE.txt