Index: openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	29 Jun 2015 11:00:28 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	7 Aug 2017 23:48:00 -0000	1.3
@@ -13,7 +13,12 @@
 namespace eval ::tcltrace {
 
     ad_proc -private before-ns_return { cmd op } {
-	Execute this proc before ns_return is called
+        
+	Execute this proc before ns_return is called.
+        This proc saves the request in a file, which can be later
+        used for validating the returned HTML. This works as well
+        for admin pages, which can not be validated via web based
+        HTML validators without giving away admin privileges.
 
 	@param cmd the full command as executed by Tcl
 	@param op the trace operation 
@@ -43,6 +48,7 @@
 	}
     }
 
+ 
     ad_proc -private before-ns_log { cmd op } {
 	Execute this proc before ns_log is called
 
@@ -54,7 +60,7 @@
 	if {![info exists ::__log_severities]} {
 	    set ::__log_severities [::parameter::get_from_package_key \
 					-package_key acs-tcl \
-					-parameter TclTraceLogServerities \
+					-parameter TclTraceLogSeverities \
 					-default ""]
 	}
 	if {$severity in $::__log_severities} {
@@ -65,10 +71,23 @@
 	} else {
 	    #catch {ds_comment "ignore $severity $msg"}
 	}
-    }   
+    }
+
+    ad_proc -private before { cmd op } {
+        Simple trace proc for arbitraty commands. simply reports traces to error.log.
+    } {
+        ns_log notice "trace: $cmd"
+    }
+   
 }
 
 
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: