Thanks Dan, that cured some ills, but it doesn't work for lists that contain multi-word elements:
[list ab cd ef gh ij "a b"]
I changed my inreg code to use your regexp. Take a look at the results for "a b"
set expr [string map {{ } \\s} "\\m([join [lrange $args $i end] "|"]\\M"]