@@ -1687,15 +1687,17 @@
 	   (min (max (/ (expt r1 (* r2 s2 ratio)) s1) 0) 30))
 	  (else
 	   (debug:print 0 *default-log-port* "BAD exp-params, should be \"r1 r2 s1 s2\" but got " paramstr)
 	   30)))))
 
-(define (common:print-delay-table)
-  (let loop ((x 0))
-    (print x "," (common:get-delay x 1))
-    (if (< x 2)
-	(loop (+ x 0.1)))))
+;; -mrw- this appears to not be used
+;;
+;; (define (common:print-delay-table)
+;;   (let loop ((x 0))
+;;     (print x "," (common:get-delay x 1))
+;;     (if (< x 2)
+;; 	(loop (+ x 0.1)))))
 
 (define (get-cpu-load #!key (remote-host #f))
   (car (common:get-cpu-load remote-host)))
 
 ;;======================================================================
@@ -2500,23 +2502,23 @@
 		  ((directory? p)(hash-table-set! directories p #t))
 		  (else
 		   (case (vector-ref rule 1)
 		     ((keep)(hash-table-set! keepers p rule))
 		     ((remove)
-		      (print "Removing file " p)
+		      (debug:print 0 *default-log-port* "Removing file " p)
 		      (delete-file p))
 		     ((compress)
-		      (print "Compressing file " p)
+		      (debug:print 0 *default-log-port* "Compressing file " p)
 		      (system (conc compress " " p)))
 		     (else
-		      (print "No match for file " p))))))))
+		      (debug:print 0 *default-log-port* "No match for file " p))))))))
     (if remove-empty
 	(for-each
 	 (lambda (d)
 	   (if (null? (glob (conc d "/.*")(conc d "/*")))
 	       (begin
-		 (print "Removing empty directory " d)
+		 (debug:print 0 *default-log-port* "Removing empty directory " d)
 		 (delete-directory d))))
 	 (sort (hash-table-keys directories) (lambda (a b)(> (string-length a)(string-length b))))))
     ))
 
 ;;======================================================================