@@ -522,10 +522,11 @@
 	      (changed ( < (- time2 time1) 6.0)) ;; dest db not updated within last 6 seconds
 
       (do-cp (cond
 		      ((not (file-exists? destfile)) ;; shouldn't happen, but this might recover
 		       (debug:print-info 2 *default-log-port* "File " destfile " not found. Copying "srcfile" to "destfile)
+                       ;; TODO: Need to fix this for WAL mod. Can't just copy.
                        (system (conc "/bin/mkdir -p " dest-directory))
                        (system (conc "/bin/cp " srcfile " " destfile))
 		       #t)
 		      (changed ;; (and changed
 		       ;; (> (- (current-seconds) time1) 3)) ;; if file is changed and three seconds have passed.