Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -585,14 +585,17 @@
                                (if (not (configf:lookup *configdat* "server" "disable-db-snapshot"))
                                    (common:snapshot-file mtdbfile subdir: ".db-snapshot"))
 		               (delete-file* staging-file)
 		               (let* ((start-time (current-milliseconds))
                                       (res (system sync-cmd))
+                                      (dbbackupfile (conc mtdbfile ".backup"))
                                       (res2 
                                        (cond
-                                        ((eq? 0 res)
-		                         (delete-file* (conc mtdbfile ".backup"))
+                                        ((eq? 0 res )
+                                         (if (file-exists? dbbackupfile)
+		                           (delete-file* dbbackupfile)
+                                         )
                                          (if (eq? 0 (file-size sync-log))
                                              (delete-file sync-log))
 		                         (system (conc "/bin/mv " staging-file " " mtdbfile))
                                          
                                          (set! last-sync-seconds (/ (- (current-milliseconds) start-time) 1000))