diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in
index 9e3e5c8fc..841353b41 100644
--- a/tcl/subcmd.tcl.in
+++ b/tcl/subcmd.tcl.in
@@ -2466,7 +2466,7 @@ proc cmdModuleRefresh {} {
    # load variants from loaded modules
    cacheCurrentModules
 
-   foreach lm [getLoadedModulePropertyList name] {
+   foreach lm [getLoadedModulePropertyList refresh] {
       # prepare info to execute modulefile
       set vrlist [getVariantList $lm 1]
       if {[llength $vrlist] > 0} {