Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -N -r1.58 -r1.59
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	8 Jan 2004 09:53:48 -0000	1.58
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	11 Jan 2004 16:33:46 -0000	1.59
@@ -799,26 +799,26 @@
     }
 
     foreach {root path} $paths {
-      ad_call_proc_if_exists ds_comment "rp_handler: trying rp_serve_abstract_file $root / $path "
-      ad_try {
-	rp_serve_abstract_file "$root/$path"
-	set tcl_url2file([ad_conn url]) [ad_conn file]
-	set tcl_url2path_info([ad_conn url]) [ad_conn path_info]
-      } notfound val {
-          ad_call_proc_if_exists ds_comment "rp_handler: not found"
-          ad_call_proc_if_exists ds_add rp [list transformation [list notfound "$root / $path" $val] $startclicks [clock clicks -milliseconds]]
-	continue
-      } redirect url {
-          ad_call_proc_if_exists ds_comment "rp_handler: redirect"
-          ad_call_proc_if_exists ds_add rp [list transformation [list redirect $root/$path $url] $startclicks [clock clicks -milliseconds]]
-	ad_returnredirect $url
-      } directory dir_index {
-          ad_call_proc_if_exists ds_comment "rp_handler: dir_index"
-          ad_call_proc_if_exists ds_add rp [list transformation [list directory $root/$path $dir_index] $startclicks [clock clicks -milliseconds]]
-	continue
-      }
-
-      return
+        ad_call_proc_if_exists ds_add rp [list notice "Trying rp_serve_abstract_file $root/$path" $startclicks [clock clicks -milliseconds]]
+        ad_try {
+            rp_serve_abstract_file "$root/$path"
+            set tcl_url2file([ad_conn url]) [ad_conn file]
+            set tcl_url2path_info([ad_conn url]) [ad_conn path_info]
+        } notfound val {
+            ad_call_proc_if_exists ds_add rp [list notice "File $root/$path: Not found" $startclicks [clock clicks -milliseconds]]
+            ad_call_proc_if_exists ds_add rp [list transformation [list notfound "$root / $path" $val] $startclicks [clock clicks -milliseconds]]
+            continue
+        } redirect url {
+            ad_call_proc_if_exists ds_add rp [list notice "File $root/$path: Redirect" $startclicks [clock clicks -milliseconds]]
+            ad_call_proc_if_exists ds_add rp [list transformation [list redirect $root/$path $url] $startclicks [clock clicks -milliseconds]]
+            ad_returnredirect $url
+        } directory dir_index {
+            ad_call_proc_if_exists ds_add rp [list notice "File $root/$path: Directory index" $startclicks [clock clicks -milliseconds]]
+            ad_call_proc_if_exists ds_add rp [list transformation [list directory $root/$path $dir_index] $startclicks [clock clicks -milliseconds]]
+            continue
+        }
+        
+        return
     }
 
     if {[info exists dir_index]