Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,6 +18,6 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..
 
 ;; (declare (unit megatest-version))
 
-(define megatest-version 1.8014)
+(define megatest-version 1.8015)

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1409,11 +1409,12 @@
 	    (if (check-if-modepatt-defined pkta notification-hook pktfile)
 		(print "Modepatt is valid")
 		(set! ret #f)))) 
     ret))
 
-   
+
+
 ;; collect all needed data and create run pkts for contours with changed inputs
 ;;
 (define (dispatch-commands mtconf toppath)
   ;; we are expecting a directory "logs", check and create it, create the log in /tmp if not able to create logs dir
   (let ((logdir
@@ -1441,10 +1442,11 @@
 	      (areas     (configf:get-section mtconf "areas"))
 	      (contours  (configf:get-section mtconf "contours"))
 	      (pkts      (find-pkts pdb '(cmd) '()))
 	      (torun     (make-hash-table)) ;; target => ( ... info ... )
 	      (rgentargs (hash-table-keys rgconf))) ;; these are the targets registered for automatically triggering
+         (debug:print 0 *default-log-port* "dispatch-commands: number of pkts = " (length pkts))
          (sqlite3:set-busy-handler! (dbi:db-conn pdb) (sqlite3:make-busy-timeout 10000))
 	 (for-each
 	  (lambda (pktdat)
 	    (let* ((pkta    (alist-ref 'apkt pktdat))
 		   (action  (alist-ref 'A pkta))
@@ -1468,11 +1470,14 @@
 			;; if modepatt used chek if it is defined for the target. If -reqtarg check if target exist.
 			(if (validate-cmd fullcmd pkta notification-hook pktfile)
 			    (begin
 			      (print "RUNNING: " fullcmd)
 			      (system fullcmd) ;; replace with process ...
+                              (debug:print 0 *default-log-port* "doing mark-processed. pktsdir: " pktsdir)
+                              (debug:print 0 *default-log-port* "fullcmd: " fullcmd)
 			      (mark-processed pdb (list (alist-ref 'id pktdat)))
+                              (thread-sleep! 100)
 			      (let-values (((ack-uuid ack-pkt)
 					    (add-z-card
 					     (construct-sdat 'P uuid
 							     'T (case (string->symbol action)
 								  ((run) "runstart")