diff --git a/espdinfo.sty b/espdinfo.sty
index 8618748..8ac0024 100644
--- a/espdinfo.sty
+++ b/espdinfo.sty
@@ -39,6 +39,9 @@
 \newcommand{\ESPDtitle}[1]{\ESPDunitName{#1}}
 \renewcommand{\title}[1]{\ESPDunitName{#1}}
 
+\newcommand{\ESPDtheProject}{}
+\newcommand{\ESPDproject}[1]{\renewcommand{\ESPDtheProject}{#1}}
+
 \newcommand{\ESPDtheDocName}{}
 \newcommand{\ESPDdocName}[1]{\renewcommand{\ESPDtheDocName}{#1}}
 
diff --git a/espdtitle.sty b/espdtitle.sty
index fa20514..9ca9ac7 100644
--- a/espdtitle.sty
+++ b/espdtitle.sty
@@ -67,7 +67,8 @@
   \ESPD@title@split@field{\ESPDtheTitleFieldIIIl}{\ESPDtheTitleFieldIIIr}}
 
 \renewcommand{\ESPDtheTitleFieldIV}{%
-  \MakeUppercase{\ESPDtheTitle}\par\ESPDtheDocName}
+    {\MakeUppercase{\ESPDtheProject}\par\MakeUppercase{\ESPDtheTitle}\par\ESPDtheDocName}%
+}
 
 \renewcommand{\ESPDtheTitleFieldV}{}