Index: openacs-4/packages/static-pages/tcl/static-pages-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-procs.tcl,v diff -u -r1.11.2.9 -r1.11.2.10 --- openacs-4/packages/static-pages/tcl/static-pages-procs.tcl 16 Dec 2002 09:11:18 -0000 1.11.2.9 +++ openacs-4/packages/static-pages/tcl/static-pages-procs.tcl 20 Jan 2003 16:04:07 -0000 1.11.2.10 @@ -266,7 +266,6 @@ } ns_mutex unlock $mutex - ns_log Notice "atp: $proc_name: other_start_time: '$other_start_time'" if { ! $run_p } { # Another copy is running, must abort: @@ -700,13 +699,14 @@ @author Andrew Piskorski (atp@piskorski.com) @creation-date 2002-12-15 } { + set proc_name {sp_maybe_create_new_mime_type} set func {fs_maybe_create_new_mime_type} if { [nsv_exists api_proc_doc $func] || ![empty_string_p [namespace eval :: [list info procs $func]]] } { # The file-storage version of this proc exists, use it: - return [list $func $file_name] + return [eval [list $func $file_name]] } else { # Fall back to local implementation: