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 -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	10 Sep 2015 08:22:00 -0000	1.2.2.1
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	30 Nov 2015 12:43:23 -0000	1.2.2.2
@@ -65,7 +65,14 @@
 	} 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 $cmd
+    }
+   
 }