diff --git a/stepmania/src/GameConstantsAndTypes.cpp b/stepmania/src/GameConstantsAndTypes.cpp
index 24ecf6117c..b1306f93ff 100644
--- a/stepmania/src/GameConstantsAndTypes.cpp
+++ b/stepmania/src/GameConstantsAndTypes.cpp
@@ -379,6 +379,17 @@ static const CString StageNames[] = {
 	"Demo",
 };
 XToString( Stage, NUM_STAGES );
+static void LuaStage(lua_State* L)
+{
+	FOREACH_Stage( st )
+	{
+		CString s = StageNames[st];
+		s.MakeUpper();
+		LUA->SetGlobal( "STAGE_"+s, st );
+	}
+}
+REGISTER_WITH_LUA_FUNCTION( LuaStage );
+LuaXToString( Stage );
 
 
 /*