@@ -524,11 +524,11 @@
 	 "-cleanup-db"
             ))
        (no-watchdog-argvals (list '("-archive" . "replicate-db")))
        (start-watchdog-specail-arg-val (let loop ((hed  (car no-watchdog-argvals))
                                                   (tail (cdr   no-watchdog-argvals)))
-                                             (print "hed" hed " arg " (args:get-arg (car hed)) " val:" (cdr hed)  " eql" (equal? (args:get-arg (car hed)) (cdr hed)))  
+                                             ;; (print "hed" hed " arg " (args:get-arg (car hed)) " val:" (cdr hed)  " eql" (equal? (args:get-arg (car hed)) (cdr hed)))  
                                              (if (equal? (args:get-arg (car hed)) (cdr hed))
                                                #f
                                                (if (null? tail)
                                                  #t
                                                  (loop (car tail) (cdr tail))))))