Sorry about that, I confused perl's re flavor with tcl's. For tcl you need to use \m and \M. Something like the following should work:

in { 
    set expr "\\m([join [lrange $args $i end] "|"]\\M"
    append condition "\[regexp \"$expr\" $arg1\] " 
    set next [llength $args]
}