diff --git a/tcl/modfind.tcl.in b/tcl/modfind.tcl.in
index 19d03828..a1e14a5e 100644
--- a/tcl/modfind.tcl.in
+++ b/tcl/modfind.tcl.in
@@ -695,7 +695,7 @@ proc getTagList {mod {fpmod {}} {sort 1}} {
 }
 
 # return tags applying to mod that can be exported
-proc getExportTagList {mod {serialized 0}} {
+proc getExportTagList {mod {serialized 0} {fpmod {}}} {
    # remove loaded/hidden tags from the list to register
    lassign [getDiffBetweenList [getTagList $mod $fpmod 0] [list loaded\
       hidden]] ret
diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in
index c2e2da9f..bc7b9f4d 100644
--- a/tcl/subcmd.tcl.in
+++ b/tcl/subcmd.tcl.in
@@ -1315,7 +1315,7 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list args} {
          }
 
          # declare the tags of this module
-         if {[set modtag [getExportTagList $modnamevr 1]] ne {}} {
+         if {[set modtag [getExportTagList $modnamevr 1 $modfile]] ne {}} {
             append-path __MODULES_LMTAG $modtag
          }
          if {[set modtag [getExtraTagList $modnamevr 1]] ne {}} {
@@ -1339,7 +1339,7 @@ proc cmdModuleLoad {context uasked tryload loadany tag_list args} {
 
          # record module title (name, variants and tags)
          registerModuleDesignation $msgrecid $modname [getVariantList\
-            $modname 7] [getExportTagList $modname]
+            $modname 7] [getExportTagList $modname 0 $modfile]
 
          # consider evaluation hidden if hidden loaded module is auto loaded
          # and no specific messages are recorded for this evaluation