abs is one of several extended math commands available in Tclx
If you don't have that, it can easily be emulated:
proc abs x {expr {abs($x)}]
See Importing expr functions
Category Command Category Mathematics