Index: Sounds.tcl
===================================================================
--- Sounds.tcl	(revision 2714)
+++ Sounds.tcl	(working copy)
@@ -654,6 +654,8 @@
     if {$priv(snack)} {
 	# snack::audio play_gain [expr int($sprefs(volume))]
     }
+    set sprefs(midiCmd) $tmpPrefs(midiCmd)
+
 }
 
 proc ::Sounds::CancelPrefsHook {} {