Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -1026,11 +1026,11 @@
 		   (if (and same
 			    (< i (- num-fields 1)))
 		       (loop (+ i 1))))
 		 (if (not same)
 		     (begin
-		       (debug:print 0 *default-log-port* "applying data "fromrow"to table "tablename", numrecs="numrecs)
+		       (debug:print 2 *default-log-port* "applying data "fromrow"to table "tablename", numrecs="numrecs)
 		       (apply sqlite3:execute stmth (vector->list fromrow))
 		       (hash-table-set! numrecs tablename (+ 1 (hash-table-ref/default numrecs tablename 0)))))))
 	     fromdat-lst))))
        fromdats)
       (sqlite3:finalize! stmth)

Index: ulex-full/ulex.scm
==================================================================
--- ulex-full/ulex.scm
+++ ulex-full/ulex.scm
@@ -435,14 +435,15 @@
 	      (end-time (current-milliseconds))
 	      (run-time (- end-time start-time)))
 	 (case (work-method)
 	   ((direct) result)
 	   (else
-	    (print "ULEX: work "cmd", "params" done in "run-time" ms")
+	    (if (> run-time 1000)(print "ULEX: Warning, work "cmd", "params" done in "run-time" ms"))
 	    ;; send 'response as cmd and result as params
 	    (send uconn rem-host-port qrykey 'response result) ;; could check for ack
-	    (print "ULEX: response sent back to "rem-host-port" for "qrykey" in "(- (current-milliseconds) end-time)"ms")))))
+	    (let* ((duration (- (current-milliseconds) end-time)))
+	      (if (> duration 500)(print "ULEX: Warning, response sent back to "rem-host-port" for "qrykey" in "duration"ms")))))))
       (MBOX_TIMEOUT 'do-work-timeout)
       (else
        (print "ERROR: rdat "rdat", did not match rem-host-port qrykey cmd params")))))
 
 ;; NEW APPROACH: