{ServeLocalCollection (5):} {catched error from plutao.sid.inpe.br} {too many nested evaluations (infinite loop?)} {    while executing} {"regsub {\?\$$} $word {?} word	"} {    ("foreach" body line 2)} {    invoked from within} \"foreach\ word\ \$words\ \{ {				regsub {\?\$$} $word {?} word	;# tdiinpe?$ -> tdiinpe?} {				lappend words2 $word} \t\t\t\}\" {    invoked from within} \"if\ !\[regexp\ \{_\}\ \$words\]\ \{ {# but Adv._in_Space_Res.$ -> Adv._in_Space_Res. (trailing period must be preserved)} {			regsub -all {[.:] } $words { } words	..."} {    invoked from within} \"if\ \[regexp\ \{\ and\ |\ or\ \}\ \$string\]\ \{ {# puts $string} #\t\tif\ !\[string\ equal\ \[llength\ \$string\]\ \[llength\ \[join\ \$string\]\]\]\ \{ #\ syntax\ error\ example:\ \{af\ inpe\ ...\" {    (procedure "Search" line 63)} {    invoked from within} {"Search {repository, dpi.inpe.br/plutao/2010/11.11.17.28.18} yes yes repArray {} {}"} {    ("eval" body line 1)} {    invoked from within} {"eval $virtualRepList"} {    (procedure "or" line 6)} {    invoked from within} {"or [list Search [list repository, dpi.inpe.br/plutao/2010/11.11.17.28.18 ] yes yes repArray {} {}]"} {    ("eval" body line 1)} {    invoked from within} {"eval $statement"} {    ("foreach" body line 23)} {    invoked from within} \"foreach\ statement\ \[lreplace\ \[split\ \$string\ %\]\ 0\ 0\]\ \{ {# puts $statement} {#			if [regsub {^(and |or )not } $statement {\1[not [Search [list } statement] ..."} {    invoked from within} {"if [regexp {^related:(.*?):(.*?):(.*?):(.*?):(.*?):(.*?):} $string m metadataRep-i language selectedFieldNameList numberOfCombinations importantWordLi..."} {    (procedure "dpi.inpe.br/banon/1999/04.21.17.06::MountSearch" line 24)} {    invoked from within} {"${searchRepository}::MountSearch $searchExpression $accent $case"} {    (procedure "Select" line 13)} {    invoked from within} {"Select readergroup [list repository, $repName]"} {    (procedure "ComputeRedirectToMetadata" line 3)} {    invoked from within} {"ComputeRedirectToMetadata $repName $clientIPAddress"} {    (procedure "GetURLPropertyList" line 546)} {    invoked from within} \"GetURLPropertyList\ \{clientinformation.ipaddress\ 18.116.40.47\ parsedibiurl.ibi\ dpi.inpe.br/plutao/2010/11.11.17.28.18\ parsedibiurl.metadatafieldnamelis...\" {    ("eval" body line 1)} {    invoked from within} {"eval $cmd"}