TCL捕获忽略错误

Question

proc handler { args } { 
    if { [catch {eval $args} errorMessage] } {
        _report_error "$errorMessage"
    }
}

args是从另一个TCL文件调用的脚本

proc is_threshold_percent {thresholdValue } {
   #some code here
    if { [ string is double -strict $threshold ] && $threshold < 0 } {
        error "Threshold ${threshold}% must be positive."
    }
    return 1
}
return 0
}

没有catch阻止它; s正常打印错误和程序退出并出现错误，但我需要处理错误消息并添加更多详细信息并且catch块忽略错误并完成通常＆＃39;