Index: openacs-4/packages/xowf/tcl/atjob-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/atjob-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/xowf/tcl/atjob-procs.tcl	31 Jan 2018 15:27:28 -0000	1.6
+++ openacs-4/packages/xowf/tcl/atjob-procs.tcl	10 Apr 2018 06:56:27 -0000	1.7
@@ -29,7 +29,7 @@
   }
 
   atjob instproc init {} {
-    my destroy_on_cleanup
+    :destroy_on_cleanup
   }
 
   #
@@ -45,7 +45,7 @@
     set class [self class]
     set owner_id [${:object} item_id]
     set package_id [${:object} package_id]
-    set ansi_time [$class ansi_time [clock scan [my time]]]
+    set ansi_time [$class ansi_time [clock scan [:time]]]
     if {![info exists :party_id]} {
       set :party_id [::xo::cc set untrusted_user_id]
     }
@@ -67,7 +67,7 @@
                  -instance_attributes $instance_attributes \
                  -page_template $form_id]
       $f save_new -use_given_publish_date true
-      my log "--at formpage saved"
+      :log "--at formpage saved"
     }
   }
 
@@ -98,7 +98,7 @@
 
     if {[llength [$items children]] > 0} {
       
-      my log "--at we got [llength [$items children]] scheduled items"
+      :log "--at we got [llength [$items children]] scheduled items"
 
       foreach item [$items children] {
         #my log "--at *** job=[$item serialize] ***\n"
@@ -122,15 +122,15 @@
             -init_url 0 -actual_query ""
         $package_id set_url -url [$package_id package_url][$owner_id name]
 
-        my log "--at executing atjob $cmd"
+        :log "--at executing atjob $cmd"
         if {[catch {eval $owner_id $cmd} errorMsg]} {
           ns_log error "\n*** atjob $owner_id $cmd lead to error ***\n$errorMsg\n$::errorInfo"
         } else {
           $item set_live_revision -revision_id [$item revision_id] -publish_status "expired"
         }
         ns_set cleanup
       }
-      my log "---run xowf jobs END"
+      :log "---run xowf jobs END"
     }
   }
 
@@ -140,7 +140,7 @@
     # check, if there are jobs scheduled for execution
     #
     set op [expr {$with_older ? "<=" : "=" }]
-    set ansi_time [my ansi_time [clock seconds]]
+    set ansi_time [:ansi_time [clock seconds]]
 
     #
     # Get the entries.  The items have to be retrieved bottom up,
@@ -172,7 +172,7 @@
     set item_ids [::xo::dc list get_due_atjobs $sql]
     
     if {[llength $item_ids] > 0} {
-      my log "--at we got [llength $item_ids] scheduled items"
+      :log "--at we got [llength $item_ids] scheduled items"
     
       #
       # Running the jobs here in this proc could lead to a problem with
@@ -190,7 +190,7 @@
         ns_job queue -detached $queue [list ::xowf::atjob run_jobs $item_ids]
       }
 
-      my log "--at END"
+      :log "--at END"
     }
   }
 }