Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v diff -u -N -r1.28.2.34 -r1.28.2.35 --- openacs-4/packages/xowf/tcl/xowf-procs.tcl 10 Jul 2020 10:39:32 -0000 1.28.2.34 +++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 14 Jul 2020 19:38:53 -0000 1.28.2.35 @@ -644,7 +644,7 @@ if {[${:wf_container} exists __xowf_depends]} { set depends [${:wf_container} set __xowf_depends] foreach {fn mtime} $depends { - if {[file mtime $fn] ne $mtime} { + if {[ad_file mtime $fn] ne $mtime} { set ok 0 break } @@ -2405,7 +2405,7 @@ } set fname [acs_root_dir]$wfName - if {![file readable $fname]} { + if {![ad_file readable $fname]} { error "file '$fname' not found" } @@ -2414,7 +2414,7 @@ # invocation. It would be nicer to have this more OO, such we can # avoid the global variable ::__xowf_depends. # - lappend ::__xowf_depends $fname [file mtime $fname] + lappend ::__xowf_depends $fname [ad_file mtime $fname] set f [open $fname]; set wfDefinition [read $f]; close $f #::xotcl::Object log "INCLUDE $wfName [list $vars]"