--- a/Tools__StringSearchTool.st	Mon Oct 12 15:00:53 2009 +0200
+++ b/Tools__StringSearchTool.st	Mon Oct 12 15:26:31 2009 +0200
@@ -636,12 +636,12 @@
 
 searchNextTextReachEnd
     |message|
-    message := 'End of text reached'.
+    message := (resources string: 'End of text reached').
     self searchTextRestarted: message.
     Smalltalk beep.
 
     self restartSearch ifTrue:[
-        message := message, ', starting from the beginning'.
+        message := message, (resources string: ', starting from the beginning').
         self searchTextRestarted: message.
         self searchNextTextFromBeginning.
     ].
@@ -650,12 +650,12 @@
 searchPreviousTextReachBeginning
     |message|
 
-    message := 'Beginning of text reached'.
+    message := (resources string: 'Beginning of text reached').
     self searchTextRestarted: message.
     Smalltalk beep.
 
     self restartSearch ifTrue:[
-        message := message, ', starting from the end'.
+        message := message, (resources string: ', starting from the end').
         self searchTextRestarted: message.
         self searchPreviousTextFromEnd
     ].
@@ -663,7 +663,7 @@
 
 searchTextNotFound
 
-    self searchTextNotFound: 'Text not found'.
+    self searchTextNotFound: (resources string: 'Text not found').
 !
 
 searchTextNotFound: aMessage
@@ -788,9 +788,9 @@
 !StringSearchTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.16 2009-10-12 13:00:35 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.17 2009-10-12 13:26:31 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.16 2009-10-12 13:00:35 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.17 2009-10-12 13:26:31 fm Exp $'
 ! !