[tclwebtest] variable not found

[<a....@12...>]

I ran into this problem:
----- START:
/web/therapie/packages/tclwebtest-ui/tests/selftest/caption.test at
[03/Mar/2003:21:01:58] -----
can't read "match": no such variable
while executing
"if { $match != "" } {
# substitute 'folder/..'
while { [regsub {/[^/]+(/\.\.(/|$))} $path "/" path] } { }
# substitute '/////'..."
(procedure "post_process_url" line 9)
invoked from within
"post_process_url [absolute_link $url"
(procedure "do_request" line 36)
invoked from within
"do_request "file://$TESTHOME/caption.html""
(file "/web/therapie/packages/tclwebtest-ui/tests/selftest/caption.test"
line 2)
invoked from within
"source /web/therapie/packages/tclwebtest-ui/tests/selftest/caption.test"
("eval" body line 4)
invoked from within
"eval $to_eval "
in "/web/therapie/packages/tclwebtest-ui/tests/selftest/caption.test" line
2:
do_request "file://$TESTHOME/caption.html"
----- FAILED:
/web/therapie/packages/tclwebtest-ui/tests/selftest/caption.test (took
0s) -----

Adding: 'set match "" ' to 'post_process_url' resolved the problem

The problem occurs if I call tclwebtest from a .tcl file in openACS 4.5
with:
	set st [open "|$TESTHOME/tclwebtest $TESTHOME/tests/selftest/" "r"]
	while { [gets $st line] >= 0 } {
 		# Don't bother writing out lines which are purely whitespace.
		if { ![string is space $line] } {
			ns_write "[ad_quotehtml $line] <br>"
		}
   	 }
	close $st

Running a selftest from the commandprompt works fine.

Does anybody else experience the same problem?

Aldert