if {$form_complete} { set pagename page2 } else { set pagename page1 } switch $pagename { page1 { source page1.tcl } page2 { source page2.tcl } }