--- a/Tools__InternationalLanguageTranslationEditor.st	Wed Apr 02 12:33:06 2008 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Tue Apr 22 17:43:56 2008 +0200
@@ -2481,6 +2481,7 @@
     |message|
     message := 'End of list reached, starting from the beginning'.
     self searchTextRestarted: message.
+    Smalltalk beep.
     self searchNextTextFromBeginning.
 
     "Created: / 16-06-2007 / 11:00:59 / Administrador"
@@ -2545,6 +2546,7 @@
     |message|
     message := 'Beginning of list reached, starting from the end'.
     self searchTextRestarted: message.
+    Smalltalk beep.
     self searchPreviousTextFromEnd.
 
     "Created: / 16-06-2007 / 11:01:23 / Administrador"