* Fix bug ID #33012 (duplicate module), patch from Sven Barth

git-svn-id: trunk@37952 -

packages/fcl-web/src/base/custweb.pp

@@ -344,10 +344,12 @@ begin
   MN:=Sender.ModuleName;
   // Modules expect the path info to contain the action name as the first part. (See getmodulename);
   ARequest.GetNextPathInfo;
-  if Sender.SkipStreaming then
-    M:=MC.CreateNew(Self)
-  else
-    M:=MC.Create(Self);
+  M:=FindModule(MC);
+  if (M=Nil) then
+    if Sender.SkipStreaming then
+      M:=MC.CreateNew(Self)
+    else
+      M:=MC.Create(Self);
   DoCallModule(M,MN,ARequest,AResponse);
 end;