Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -494,21 +494,10 @@
 		   (common:low-noise-print 10 "sync-all")) ;; cheesy way to reduce frequency of running sync :)
               (begin
 		(if (common:low-noise-print 120 "sync-all-print")
                     (debug:print 0 *default-log-port* "keep-running calling db:all-db-sync at " (time->string (seconds->local-time) "%H:%M:%S")))
 		(db:all-db-sync *dbstruct-dbs*)
-		(if (common:low-noise-print 1800 "sync-back") ;; every half hour do a reverse sync
-		    (let* ((lockfile (conc *toppath*"/.megatest/syncback.lock"))
-			   (locked   (common:simple-file-lock lockfile)))
-		      (if locked
-			  (begin
-			    (db:multi-db-sync
-			     *dbstruct-dbs*
-			     'dejunk
-			     'adj-testids
-			     'old2new)
-			    (common:simple-file-release-lock lockfile)))))
 		)))
       
       ;; when things go wrong we don't want to be doing the various queries too often
       ;; so we strive to run this stuff only every four seconds or so.
       (let* ((sync-time (- (current-milliseconds) start-time))