Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1046,11 +1046,12 @@
 
 (define (db:tmp->megatest.db-sync dbstruct last-update)
   (let* ((mtdb        (dbr:dbstruct-mtdb dbstruct))
 	 (tmpdb       (db:get-db dbstruct))
 	 (refndb      (dbr:dbstruct-refndb dbstruct)))
-    (db:sync-tables (db:sync-all-tables-list dbstruct) last-update tmpdb refndb mtdb)))
+    (db:sync-tables (db:sync-all-tables-list dbstruct) last-update tmpdb refndb mtdb)
+    (stack-push! (dbr:dbstruct-dbstack dbstruct) dbdat)))
 
 ;;;; run-ids
 ;;    if #f use *db-local-sync* : or 'local-sync-flags
 ;;    if #t use timestamps      : or 'timestamps
 ;;
@@ -1071,11 +1072,11 @@
 	 (res                (if (or sync-needed ;; don't sync if a sync already occurred in the past 6 seconds
 				     full-sync-needed)
 				 (begin
 				   (if no-sync-db
 				       (begin
-					 (if full-sync-needed (db:no-sync-set no-sync-db "LAST_FULL_UPDATE" start-time))
+					 (if full-sync-needed (db:no-sync-set no-sync-db "LAST_FULL_UPDATE" 0)) ;; This should force a *full* sync, doesn't make sense it would set to start-time
 					 (db:no-sync-set no-sync-db "LAST_UPDATE" start-time)))
 				   (db:tmp->megatest.db-sync dbstruct last-update))
 				 0))
 	 (sync-time           (- (current-seconds) start-time)))
       (debug:print-info 3 *default-log-port* "Sync of newdb to olddb completed in " sync-time " seconds pid="(current-process-id))