From dbbbc6c15ce441795953bd57dc8fd72220b4c560 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 6 Aug 2020 12:03:03 +0000
Subject: [PATCH] * Fix resource name as well, not only unit name

git-svn-id: trunk@46287 -
---
 packages/pastojs/src/pas2jsjsresources.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/pastojs/src/pas2jsjsresources.pp b/packages/pastojs/src/pas2jsjsresources.pp
index 02bba9686c..4b43ca5da2 100644
--- a/packages/pastojs/src/pas2jsjsresources.pp
+++ b/packages/pastojs/src/pas2jsjsresources.pp
@@ -83,7 +83,7 @@ begin
   aName:=Options.Values['name'];
   if aName='' then
     aName:=ChangeFileExt(ExtractFileName(aFileName),'');
-  Result:=Format(SAddResource,[aName,LowerCase(CurrentUnitName),aFormat,aData]);
+  Result:=Format(SAddResource,[LowerCase(aName),LowerCase(CurrentUnitName),aFormat,aData]);
 end;
 
 procedure TJSResourceHandler.HandleResource(aFileName: string; Options: TStrings);