Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -567,14 +567,14 @@
 			     (- num-logs max-allowed))))
 	    (for-each
 	     (lambda (file)
 	       (let* ((fullname (conc "logs/" file)))
 		 (if (directory? fullname)
-		     (debug:print-error 0 *default-log-port* fullname " in logs directory is a directory! Cannot rotate it, it is best to not put subdirectories in the logs dir.")
+		     (debug:print-info 0 *default-log-port* fullname " in logs directory is a directory! Cannot rotate it, it is best to not put subdirectories in the logs dir.")
 		     (handle-exceptions
 		      exn
-		      (debug:print-error 0 *default-log-port* "failed to remove " fullname ", exn=" exn)
+		      (debug:print-info 0 *default-log-port* "failed to remove " fullname ", exn=" exn)
 		      (delete-file* fullname)))))
 	     files)
 	    (debug:print-info 0 *default-log-port* "Deleted " (length files) " files from logs, keeping " max-allowed " files."))))))
   
 ;; Force a megatest cleanup-db if version is changed and skip-version-check not specified

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1534,13 +1534,12 @@
                               state        TEXT DEFAULT 'new',
                               status       TEXT DEFAULT 'n/a',
                               archive_type TEXT DEFAULT 'bup',
                               du           INTEGER,
                               archive_path TEXT);")))
-         (print "creating trigges from init") 
-        (db:create-triggers db)    
-     db)) ;; )
+    (db:create-triggers db)    
+    db)) ;; )
 
 ;;======================================================================
 ;; A R C H I V E S
 ;;======================================================================