diff --git a/share/scripts/add_cdmarker.lua b/share/scripts/add_cdmarker.lua
new file mode 100644
index 0000000000..fb12a9e7a3
--- /dev/null
+++ b/share/scripts/add_cdmarker.lua
@@ -0,0 +1,7 @@
+ardour { ["type"] = "EditorAction", name = "Add CD marker" }
+function 
+factory () 
+	return function () 
+		Editor:mouse_add_new_marker (Session:transport_sample(), true)
+	end 
+end