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 -N -r1.28.2.30 -r1.28.2.31
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	27 Apr 2020 12:39:57 -0000	1.28.2.30
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	17 Jun 2020 21:55:11 -0000	1.28.2.31
@@ -1480,6 +1480,15 @@
     }
   }
 
+  WorkflowPage instproc util_user_message {-html:switch -message} {
+    if {[ns_conn isconnected]} {
+      ::util_user_message -message $message -html=$html
+    } else {
+      ns_log notice "util_user_message suppressed (no connection): $message"
+    }
+  }
+
+  
   WorkflowPage instproc debug_msg {msg} {
     #util_user_message -message $msg
     ns_log notice "--WF $msg"
@@ -2255,7 +2264,7 @@
     Schedule the specified Tcl command for the current package
     instance at the given time.
   } {
-    :log "-at"
+    :log "-at $time"
     set j [::xowf::atjob new -time $time -party_id $party_id -cmd $cmd -object [self]]
     $j persist
   }