vc_fetch_revision pathWhat it does:
Returns the revision number for a file, or the empty string if no version control information is available.Defined in: /web/philip/tcl/vc-defs.tcl
Source code:
return [lindex [split [vc_fetch_summary $path] "/"] 2]