--- a/SystemBrowser.st	Wed Oct 30 11:43:25 2019 +0100
+++ b/SystemBrowser.st	Wed Oct 30 11:44:33 2019 +0100
@@ -6075,13 +6075,15 @@
     "Modified: / 05-06-2019 / 17:02:24 / Claus Gittinger"
 !
 
-searchBlockForString:aString ignoreCase:ignoreCase match:doMatchArg fullWordsOnly:fullWordsOnly resourceMethodsOnly:resourceMethodsOnly
+searchBlockForString:aStringArg ignoreCase:ignoreCase match:doMatchArg fullWordsOnly:fullWordsOnly resourceMethodsOnly:resourceMethodsOnly
     "return a block to search for a string."
 
-    |checkBlock lineCheckBlock pattern doMatch
+    |aString checkBlock lineCheckBlock pattern doMatch
      quickCheckString firstMatchIndex lastMatchIndex stringSearchBlock
      caseSensitive|
 
+    aString := aStringArg asSingleByteStringIfPossible.
+
     caseSensitive := ignoreCase not.
 
     doMatch := doMatchArg.