Index: openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl,v diff -u -N -r1.21.2.5 -r1.21.2.6 --- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 15 Feb 2021 17:53:27 -0000 1.21.2.5 +++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 16 Feb 2021 17:17:42 -0000 1.21.2.6 @@ -462,7 +462,7 @@ set f [open $file "r"] incr count set contract_found_p false - ns_log Notice "Looking for contracts in file $file" + #ns_log notice "Looking for contracts in file $file" while {[gets $f line] >= 0 && !$contract_found_p} { # '::xowiki::Package initialize -ad_doc' idioms are not # that easy to identify, as nothing prevents from writing