--- HTMLReport-orig/Main.pas	2003-09-20 17:10:14.000000000 +0900
+++ HTMLReport/Main.pas	2007-03-31 14:26:59.000000000 +0900
@@ -504,7 +504,10 @@
   try
     aReportFile.LoadFromFile(theFilePath+'ReportHeader.txt');
     theReport:=DMMain.ReplaceText(aReportFile.Text,
-      '<?=$Modelname?>', 'Database Model '+ExtractFileName(EERModel.ModelFilename));
+      '<?=$Modelname?>', EERModel.GetModelName);
+
+    theReport:=DMMain.ReplaceText(theReport,
+      '<?=$ModelComments?>', EERModel.ModelComments);
 
     aReportFile.LoadFromFile(theFilePath+'Report.css');