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.7 -r1.8 --- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 10 Jan 2007 21:22:12 -0000 1.7 +++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 12 Feb 2009 15:51:23 -0000 1.8 @@ -235,7 +235,7 @@ if {![file exists ${base}.tcl] && ![file exists ${base}.vuh]} { # the file did not exist so we must have a -db extension... regexp {(.*?)(-)?([A-Za-z_]*)[.]xql$} $file match base dummy db - ns_log debug "JCD: acs_tcl__check_xql_files: $db $base from $file" + if { $db ne "" && $dummy ne "" && ![string match $db oracle]