if {![string is integer -strict $num]} then { ...do something here...}