@@ -612,11 +612,11 @@
          (calculate-off-time (lambda (work-duration duty-cycle)
                                   (* (/ (- 1 duty-cycle) duty-cycle) last-sync-seconds)))
          (off-time min-intersync-delay) ;; adjusted in closure below.
          (do-a-sync
           (lambda ()
-            (BB> "Start do-a-sync with fork-to-background="fork-to-background" persist-until-sync="persist-until-sync)
+            ;; (BB> "Start do-a-sync with fork-to-background="fork-to-background" persist-until-sync="persist-until-sync)
             (let* ((finalres
                     (let retry-loop ((num-tries 0))
                          (if (common:simple-file-lock lockfile)
 	                     (begin
                                (cond
@@ -664,13 +664,13 @@
                                          (debug:print 0 *default-log-port* "ERROR: ["(common:human-time)"] Sync failed. See log at "sync-log".fail")
                                          (if (file-exists? (conc mtdbfile ".backup"))
                                              (system (conc "/bin/cp "mtdbfile ".backup " mtdbfile)))
                                          #f))))
                                  (common:simple-file-release-lock lockfile)
-                                 (BB> "released lockfile: " lockfile)
-                                 (when (common:file-exists? lockfile)
-                                   (BB> "DID NOT ACTUALLY RELEASE LOCKFILE"))
+                                 ;; (BB> "released lockfile: " lockfile)
+                                 ;; (when (common:file-exists? lockfile)
+                                 ;;   (BB> "DID NOT ACTUALLY RELEASE LOCKFILE"))
                                  res2) ;; end let
                                );; end begin
                              ;; else
                              (cond
                               (persist-until-sync
@@ -682,11 +682,11 @@
                                (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] pid="(current-process-id)" other SYNC in progress; not syncing.")
                                'parallel-sync-in-progress))
                              ) ;; end if got lockfile
                          )
                     ))
-              (BB> "End do-a-sync with fork-to-background="fork-to-background" persist-until-sync="persist-until-sync" and result="finalres)
+              ;; (BB> "End do-a-sync with fork-to-background="fork-to-background" persist-until-sync="persist-until-sync" and result="finalres)
               finalres)
             ) ;; end lambda
           ))
     do-a-sync))