slang.tcl: update regex to account for site change