diff --git a/stead/stead.lua b/stead/stead.lua
index 14a73b6..69beebd 100644
--- a/stead/stead.lua
+++ b/stead/stead.lua
@@ -2034,6 +2034,10 @@ function set_music(s, count)
 	end
 end
 
+function stop_music()
+	set_music(nil, -1);
+end
+
 function get_sound()
 	return game._sound;
 end