set script {
    puts "line 2: [info frame 0]"
    set a 5               ;# End line comment
                          ;# End line comment with unneeded semi-colon
    puts "line 5: [info frame 0]"
    set a 5               ;# End line comment
                          ;# End line comment with unneeded semi-colon
    puts "line 8: [info frame 0]"
}

catch $script

