diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el
index 3458e068d..f831d7c82 100644
--- a/contrib/lisp/ox-taskjuggler.el
+++ b/contrib/lisp/ox-taskjuggler.el
@@ -695,13 +695,16 @@ Return complete project plan as a string in TaskJuggler syntax."
                (lambda (report) (org-taskjuggler--build-report report info))
                main-reports "")
 	    ;; insert title in default reports
-	    (let ((title (org-export-data (plist-get info :title) info)))
+	    (let* ((title (org-export-data (plist-get info :title) info))
+		   (report-title (if (string= title "")
+				     (org-taskjuggler-get-name project)
+				   title)))
 	      (mapconcat
 	       'org-element-normalize-string
 	       (mapcar
 		(function
 		 (lambda (report)
-		   (replace-regexp-in-string "%title" title report t t)))
+		   (replace-regexp-in-string "%title" report-title  report t t)))
 		org-taskjuggler-default-reports) "")))))))))
 
 (defun org-taskjuggler--build-project (project info)