$OpenBSD$
--- data/lisp/people.lsp.orig	Mon May 23 20:52:44 2011
+++ data/lisp/people.lsp	Mon May 23 20:52:52 2011
@@ -881,6 +881,7 @@
 		 (if (and (touching_bg) (with_object (bg) (pressing_action_key)))
 		     (set_aistate 2)))
 	      (2 (set_state running)
+	         (play_sound SAVE_CONS_SND 127 (x) (y))
 		 (set_aistate 3))
 	      (3 (set_aistate 4))
 	      (4
