diff --git a/src/main.lisp b/src/main.lisp
index ca9b46ac..a15bf2c7 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -159,10 +159,8 @@
 	;; output its data logs and reject files
         (let ((root-dir-truename (probe-file root-dir)))
           (if root-dir-truename
-              (progn
-                (setf *root-dir* (fad:pathname-as-directory root-dir-truename))
-                (mkdir-or-die *root-dir* debug))
-              (format t "FATAL: can't find root-dir: ~s~%" root-dir)))
+              (setf *root-dir* (fad:pathname-as-directory root-dir-truename))
+              (mkdir-or-die *root-dir* debug)))
 
 	;; Set parameters that come from the environement
 	(init-params-from-environment)