Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.103.2.4 -r1.103.2.5
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	18 Oct 2015 11:17:54 -0000	1.103.2.4
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	20 Oct 2015 08:23:39 -0000	1.103.2.5
@@ -1917,7 +1917,7 @@
                   ""]
       #[self class] set during_fetch 1
       if {[catch {my create ::$id {*}$args} errorMsg]} {
-        my log "Error: $errorMsg, $::errorInfo"
+        ad_log error $errorMsg
       }
       #[self class] unset during_fetch
       my initialize_acs_object ::$id $id
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.54.2.2 -r1.54.2.3
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	15 Oct 2015 19:52:01 -0000	1.54.2.2
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	20 Oct 2015 08:23:39 -0000	1.54.2.3
@@ -533,7 +533,7 @@
     my get_context package_id creation_user creation_ip
     #my log "ID [self] create $args"
     if {[catch {set p [my create ::0 {*}$args]} errorMsg]} {
-      my log "Error: $errorMsg, $::errorInfo"
+      ad_log error $errorMsg
     }
     #my log "ID [::0 serialize]"
     set item_id [::0 save_new \
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	18 Aug 2015 12:44:35 -0000	1.3.2.1
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	20 Oct 2015 08:23:39 -0000	1.3.2.2
@@ -1751,12 +1751,12 @@
     set page [$package_id resolve_request -path $object_name method]
     if {$page eq ""} {
       set errorMsg cannot resolve '$object_name' in package [$package_id package_url]
-      my log "Error: $errorMsg"
+      ad_log error $errorMsg
       ns_return 406 text/plain "Error: $errorMsg"
     } elseif {[catch {set msg [$page call_action \
                                    -action $action \
                                    -attributes $attributes]} errorMsg]} {
-      my log "Error: $uri $action $attributes resulted in\n$errorMsg\n$::errorInfo"
+      ad_log error "$uri $action $attributes resulted in $errorMsg"
       ns_return 406 text/plain "Error: $errorMsg\n"
     } else {
       ns_return 200 text/plain "Success: $msg\n"
Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.291.2.5 -r1.291.2.6
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	19 Oct 2015 08:40:17 -0000	1.291.2.5
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	20 Oct 2015 08:23:39 -0000	1.291.2.6
@@ -177,7 +177,7 @@
     foreach item_ref $inherit_folders {
       set folder [::xo::cc cache [list $package get_page_from_item_ref $item_ref]]
       if {$folder eq ""} {
-        my log "Error: Could not resolve parameter folder page '$item_ref' of FormPage [self]."
+        ad_log error "Could not resolve parameter folder page '$item_ref' of FormPage [self]."
       } else {
         set item_id [::xo::db::CrClass lookup -name $name -parent_id [$folder item_id]]
         if { $item_id != 0 } {
@@ -490,11 +490,11 @@
       set pp [my get_parameter parameter_page ""]
       if {$pp ne ""} {
         if {![regexp {/?..:} $pp]} {
-          my log "Error: Name of parameter page '$pp' of package [my id] must contain a language prefix"
+          ad_log error "Name of parameter page '$pp' of package [my id] must contain a language prefix"
         } else {
           set page [::xo::cc cache [list [self] get_page_from_item_ref $pp]]
           if {$page eq ""} {
-            my log "Error: Could not resolve parameter page '$pp' of package [my id]."
+            ad_log errpr "Could not resolve parameter page '$pp' of package [my id]."
           }
           #my msg pp=$pp,page=$page-att=$attribute
 
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.485.2.12 -r1.485.2.13
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Oct 2015 19:52:01 -0000	1.485.2.12
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	20 Oct 2015 08:23:39 -0000	1.485.2.13
@@ -54,8 +54,7 @@
       -form ::xowiki::WikiForm
 
   if {$::xotcl::version < 1.5} {
-    ::xowiki::Page log "Error: XOTcl 1.5 or newer is required.\
-    You seem to use XOTcl $::xotcl::version !!!"
+    ad_log error "XOTcl 1.5 or newer is required. You seem to use XOTcl $::xotcl::version!"
   }
 
   ::xo::db::CrClass create PlainPage -superclass Page \
@@ -3387,8 +3386,8 @@
     ::xo::Context create $payload -requireNamespace \
         -actual_query [::xo::cc actual_query]
     $payload set package_id [my set package_id]
-    if {[catch {$payload contains $cmd} error ]} {
-      ns_log error "content $cmd lead to error: $error\nDetails: $::errorInfo\n"
+    if {[catch {$payload contains $cmd} errorMsg]} {
+      ad_log error "content $cmd lead to error: $errorMsg"
       ::xo::clusterwide ns_cache flush xotcl_object_cache [my item_id]
     }
     #my log "call init mixins=[my info mixin]//[$payload info mixin]"
@@ -3896,7 +3895,7 @@
     foreach item_ref $inherit_folders {
       set folder [::xo::cc cache [list $package_id get_page_from_item_ref $item_ref]]
       if {$folder eq ""} {
-        my log "Error: Could not resolve parameter folder page '$item_ref' of FormPage [self]."
+        ad_log error "Could not resolve parameter folder page '$item_ref' of FormPage [self]."
       } else {
         lappend list_of_folders [$folder item_id]
       }
@@ -3940,11 +3939,11 @@
     set pp [my property ParameterPages]
     if {$pp ne {}} {
       if {![regexp {/?..:} $pp]} {
-        my log "Error: Name of parameter page '$pp' of FormPage [self] must contain a language prefix"
+        ad_log error "Name of parameter page '$pp' of FormPage [self] must contain a language prefix"
       } else {
         set page [::xo::cc cache [list [my package_id] get_page_from_item_ref $pp]]
         if {$page eq ""} {
-          my log "Error: Could not resolve parameter page '$pp' of FormPage [self]."
+          ad_log error "Could not resolve parameter page '$pp' of FormPage [self]."
         }
 
         if {$page ne "" && [$page exists instance_attributes]} {
Index: openacs-4/packages/xowiki/www/admin/import.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/import.tcl,v
diff -u -r1.23.4.1 -r1.23.4.2
--- openacs-4/packages/xowiki/www/admin/import.tcl	10 Sep 2015 08:10:41 -0000	1.23.4.1
+++ openacs-4/packages/xowiki/www/admin/import.tcl	20 Oct 2015 08:23:39 -0000	1.23.4.2
@@ -47,8 +47,7 @@
         set preexists($o) 1
       }
       if {[catch {namespace eval ::xo::import $content} errorMsg]} {
-        set msg "Error: $errorMsg\n$::errorInfo"
-	ns_log notice $msg
+	ad_log error $errorMsg
 	# cleanup all objects, that did not exist before
         foreach o [::xowiki::Page allinstances] {
 	  if {![info exists preexists($o)]} {