@@ -95,20 +95,19 @@
 (if (and *usage-log-file*
          (file-write-access? *usage-log-file*))
     (with-output-to-file
         *usage-log-file*
       (lambda ()
-        (print
-         (if *usage-use-seconds*
-             (current-seconds)
-             (time->string
-              (seconds->local-time (current-seconds))
-              "%Yww%V.%w %H:%M:%S"))
-         " "
-         (current-user-name) " "
-         (current-directory) " "
-         "\"" (string-intersperse (argv) " ") "\""))
+        (print (if *usage-use-seconds*
+		   (current-seconds)
+		   (time->string
+		    (seconds->local-time (current-seconds))
+		    "%Yww%V.%w %H:%M:%S"))
+               " "
+               (current-user-name) " "
+               (current-directory) " "
+               "\"" (string-intersperse (argv) " ") "\""))
       #:append))
 
 ;; Disabled help items
 ;;  -rollup                 : (currently disabled) fill run (set by :runname)  with latest test(s)
 ;;                            from prior runs with same keys
@@ -717,18 +716,17 @@
       (save-environment-as-files (args:get-arg "-env2file"))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-list-disks")
     (let ((toppath (launch:setup)))
-      (print 
-       (string-intersperse 
-	(map (lambda (x)
-	       (string-intersperse 
-		x
-		" => "))
-	     (common:get-disks *configdat*))
-	"\n"))
+      (print (string-intersperse 
+	      (map (lambda (x)
+		     (string-intersperse 
+		      x
+		      " => "))
+		   (common:get-disks *configdat*))
+	      "\n"))
       (set! *didsomething* #t)))
 
 ;; csv processing record
 (define (make-refdb:csv)
   (vector 
@@ -2498,12 +2496,12 @@
 			  'new2old)
 			 #f)))
       (if res
 	  (begin
 	    (common:simple-file-release-lock lockfile)
-	    (print "Synced " res " records to megatest.db"))
-	  (print "Skipping sync, there is a sync in progress."))
+	    (debug:print 0 *default-log-port* "Synced " res " records to megatest.db"))
+	  (debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress."))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-sync-to")
     (let ((toppath (launch:setup)))
       (tasks:sync-to-postgres *configdat* (args:get-arg "-sync-to"))