proc bgerror err {
    global errorInfo
    set info $errorInfo
    
    puts stdout $err
    puts stdout "------------------------- StackTrace ---------------------"
    puts $info
}