diff --git a/libs/ardour/luabindings.cc b/libs/ardour/luabindings.cc
index 037369414f..4899757188 100644
--- a/libs/ardour/luabindings.cc
+++ b/libs/ardour/luabindings.cc
@@ -915,6 +915,7 @@ LuaBindings::common (lua_State* L)
 
 		.deriveWSPtrClass <Route, Stripable> ("Route")
 		.addCast<Track> ("to_track")
+		.addCast<Automatable> ("to_automatable")
 		.addFunction ("set_name", &Route::set_name)
 		.addFunction ("comment", &Route::comment)
 		.addFunction ("active", &Route::active)
@@ -1528,6 +1529,12 @@ LuaBindings::common (lua_State* L)
 		.addConst ("RecSafeAutomation", ARDOUR::AutomationType(RecSafeAutomation))
 		.addConst ("TrimAutomation", ARDOUR::AutomationType(TrimAutomation))
 		.addConst ("PhaseAutomation", ARDOUR::AutomationType(PhaseAutomation))
+		.addConst ("MidiCCAutomation", ARDOUR::AutomationType(MidiCCAutomation))
+		.addConst ("MidiPgmChangeAutomation", ARDOUR::AutomationType(MidiPgmChangeAutomation))
+		.addConst ("MidiPitchBenderAutomation", ARDOUR::AutomationType(MidiPitchBenderAutomation))
+		.addConst ("MidiChannelPressureAutomation", ARDOUR::AutomationType(MidiChannelPressureAutomation))
+		.addConst ("MidiNotePressureAutomation", ARDOUR::AutomationType(MidiNotePressureAutomation))
+		.addConst ("MidiSystemExclusiveAutomation", ARDOUR::AutomationType(MidiSystemExclusiveAutomation))
 		.endNamespace ()
 
 		.beginNamespace ("SrcQuality")