Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.75 -r1.76
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Apr 2015 15:28:20 -0000	1.75
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Jun 2015 19:28:33 -0000	1.76
@@ -619,81 +619,8 @@
 }
 
 namespace eval ::xo {
-  #
-  # ns_log_redirector_manager manages the ns_log-redirector, which can
-  # be used to direct debugging output from the error log file as well
-  # to the developer support. The behavior is controlled via a package
-  # parameter.
-  #
-  Object ns_log_redirector_manager 
 
-  ns_log_redirector_manager proc clean {} {
-    #
-    # check if nothing to do
-    #
-    if {[info commands ::xo::ns_log] eq ""} return
-    if {![my isobject ::ns_log]} return
-    #
-    # remove the stub
-    #
-    ::ns_log destroy
-    rename ::xo::ns_log ::ns_log
-  }
-
-  ns_log_redirector_manager proc require_stub {} {
-    #
-    # check if nothing to do
-    #
-    if {[info commands ::xo::ns_log] ne ""} return
-    if {[my isobject ::ns_log]} return
-    #
-    # provide an XOTcl stub for ns_log
-    #
-    rename ::ns_log ::xo::ns_log
-    ::xotcl::Object create ::ns_log
-    ::ns_log proc unknown {m args} {::xo::ns_log notice "Warning ns_log called with unknown severity '$m' $args"}
-    foreach flag {notice warning error fatal bug debug dev} {
-      ::ns_log forward [string totitle $flag] %self $flag
-      ::ns_log forward $flag ::xo::ns_log $flag
-    }
-  }
-
-  ns_log_redirector_manager proc set_level {new_logging_level} {
-    ::ns_log notice "ns_log_redirector: set logging level $new_logging_level"
-    #
-    # We want ns_log error be reported as well via ds_comment;
-    # severity new_logging_level defines the amount of logging
-    #
-    ::xotcl::Class create ::xo::DS
-    switch -- $new_logging_level {
-      1 {set severities [list error]}
-      2 {set severities [list error notice]}
-      default {set severities [list]}
-    }
-    if {[llength $severities] > 0} {
-      my require_stub
-      foreach severity $severities {
-        ::xo::DS instproc $severity args {
-          catch {ds_comment "[self proc]: [join $args { }]"}
-          ::xo::ns_log [self proc] [join $args " "]
-        }
-      }
-      ::ns_log mixin ::xo::DS
-    } else {
-      my clean
-    }
-  }
-
   #
-  # per default, the redirector is deactivated
-  #
-  ns_log_redirector_manager set_level [::parameter::get_from_package_key \
-                                           -package_key xotcl-core \
-                                           -parameter NslogRedirector \
-                                           -default 0]
-  
-
-  #
   # For the time being: catch changed parameter values; it would be nice
   # to have in the future a more generic interface to trigger actions
   # directly on all parameter changes.