@@ -598,15 +598,18 @@
                                       (res (system sync-cmd))
                                       (dbbackupfile (conc mtdbfile ".backup"))
                                       (res2 
                                        (cond
                                         ((eq? 0 res )
+                                         (handle-exceptions
+                                            exn
+                                            #f
                                          (if (file-exists? dbbackupfile)
 		                           (delete-file* dbbackupfile)
                                          )
                                          (if (eq? 0 (file-size sync-log))
-                                             (delete-file sync-log))
+                                             (delete-file* sync-log))
 		                         (system (conc "/bin/mv " staging-file " " mtdbfile))
                                          
                                          (set! last-sync-seconds (/ (- (current-milliseconds) start-time) 1000))
                                          (set! off-time (calculate-off-time
                                                          last-sync-seconds
@@ -617,11 +620,11 @@
                                                            (debug:print 0 *default-log-port* "WARNING: ["(common:human-time)"] server.sync-duty-cycle is invalid.  Should be a number between 0 and 1, but "duty-cycle" was specified.  Using default value: "default-duty-cycle)
                                                            default-duty-cycle))))
                                          
                                          (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] pid="(current-process-id)" SYNC took "last-sync-seconds" sec")
                                          (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] pid="(current-process-id)" SYNC took "last-sync-seconds" sec ; with duty-cycle of "duty-cycle" off time is now "off-time)
-                                         'sync-completed)
+                                         'sync-completed))
                                         (else
                                          (system (conc "/bin/cp "sync-log" "sync-log".fail"))
                                          (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)))