Index: plugins/Nudge/Nudge.tcl
===================================================================
--- plugins/Nudge/Nudge.tcl	(revisión: 11907)
+++ plugins/Nudge/Nudge.tcl	(copia de trabajo)
@@ -14,6 +14,7 @@
 	# ------------------------------------------- #
 	# Registration & initialization of the plugin #
 	###############################################
+    variable plugindir
 	proc Init { dir } {
 		::plugins::RegisterPlugin Nudge
 
@@ -40,6 +41,7 @@
 		
 		after 5000 "catch {::Nudge::add_command 0 0}"
 		
+        set plugindir $dir
 	}
 	
 	#####################################
@@ -622,9 +624,15 @@
 	# Real sound from MSN 7                    #
 	############################################
 	proc sound {} {
-		set dir [::config::getKey nudgepluginpath]
-		play_sound $dir/nudge.wav 1
-		::Nudge::log "Play sound for nudge, Directory: [::config::getKey nudgepluginpath]"
+        set filename [::skin::GetSkinFile sounds nudge.wav]
+        if { ![file exists $filename] } {
+            set file [file join $plugindir "nudge.wav"]
+            play_sound $filename 1
+        } else {
+            play_sound $filename 1
+            set dir [file dirname $filename]
+        }
+        ::Nudge::log "Play sound for nudge, Directory: $dir"
 	}
 	
 	############################################