Index: Sounds.tcl
===================================================================
--- Sounds.tcl	(revision 2714)
+++ Sounds.tcl	(working copy)
@@ -652,8 +652,10 @@
     
     # The snack play_gain seems to be set globally on the machine which is BAD!
     if {$priv(snack)} {
-	# snack::audio play_gain [expr int($sprefs(volume))]
+	snack::audio play_gain [expr int($sprefs(volume))]
     }
+    set sprefs(midiCmd) $tmpPrefs(midiCmd)
+
 }
 
 proc ::Sounds::CancelPrefsHook {} {