diff --git a/libguile/script.c b/libguile/script.c
index 914317b2d..2eda0b378 100644
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -675,7 +675,7 @@ scm_shell (int argc, char **argv)
   }
 
   exit (scm_exit_status (scm_eval_x (scm_compile_shell_switches (argc, argv),
-				     scm_the_root_module ())));
+				     scm_current_module ())));
 }