diff --git a/Docs/Changelog_sm-ssc.txt b/Docs/Changelog_sm-ssc.txt
index 89221355bd..03f2960415 100644
--- a/Docs/Changelog_sm-ssc.txt
+++ b/Docs/Changelog_sm-ssc.txt
@@ -27,6 +27,8 @@ sm-ssc v1.0 Release Candidate 2 | 201008xx
   desired behavior, however.)" Let me know if I should add an alternate way to
   specify course combo color logic.  -aj
 * [ScreenRanking] Cleanup and un-hardcode shadowlength
+* [ThemeManager] add GetSelectableThemeNames Lua binding; returns a table of
+  themes as strings.
 
 20100814
 --------
diff --git a/src/ThemeManager.cpp b/src/ThemeManager.cpp
index 3d3f4bfd02..14f03d73ee 100644
--- a/src/ThemeManager.cpp
+++ b/src/ThemeManager.cpp
@@ -1238,6 +1238,17 @@ public:
 	static int GetPathB( T* p, lua_State *L )			{ lua_pushstring(L, p->GetPathB(SArg(1),SArg(2)) ); return 1; }
 	static int GetPathS( T* p, lua_State *L )			{ lua_pushstring(L, p->GetPathS(SArg(1),SArg(2)) ); return 1; }
 	static int GetPathO( T* p, lua_State *L )			{ lua_pushstring(L, p->GetPathO(SArg(1),SArg(2)) ); return 1; }
+
+	static int GetSelectableThemeNames( T* p, lua_State *L )
+	{
+		// pushes a table of theme folders from GetSelectableThemeNames()
+		//lua_pushnumber(L, p->GetNumSelectableThemes() );
+		vector<RString> sThemes;
+		p->GetSelectableThemeNames(sThemes);
+		LuaHelpers::CreateTableFromArray<RString>( sThemes, L );
+		return 1;
+	}
+
 	static int GetNumSelectableThemes( T* p, lua_State *L )		{ lua_pushnumber(L, p->GetNumSelectableThemes() ); return 1; }
 
 	DEFINE_METHOD( GetCurrentThemeDirectory, GetCurThemeDir() );
@@ -1256,6 +1267,7 @@ public:
 		ADD_METHOD( GetPathB );
 		ADD_METHOD( GetPathS );
 		ADD_METHOD( GetPathO );
+		ADD_METHOD( GetSelectableThemeNames );
 		ADD_METHOD( GetNumSelectableThemes );
 		ADD_METHOD( GetCurrentThemeDirectory );
 		ADD_METHOD( GetCurLanguage );