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 -N -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: