diff --git a/src/tcl2lua.tcl b/src/tcl2lua.tcl
index 3697e2683..f333a98f4 100755
--- a/src/tcl2lua.tcl
+++ b/src/tcl2lua.tcl
@@ -381,7 +381,15 @@ proc module-info {what {more {}}} {
 	}
     }
     "shell" {
-        return $g_shellName
+        if {$more ne {}} {
+            if {$g_shellName eq $more} {
+               return 1
+            } else {
+               return 0
+            }
+        } else {
+            return $g_shellName
+        }
     }
     "shelltype" {
         return $g_shellType