--- a/FindFileApplication.st	Thu Feb 03 15:29:57 2005 +0100
+++ b/FindFileApplication.st	Fri Feb 11 16:09:37 2005 +0100
@@ -1208,10 +1208,14 @@
      setOfFilesToSearchFor remember cache fn|
 
     contentsString := contentsStringArg.
-    ignCaseInContents ifTrue:[ contentsString := contentsString asLowercase ].
+    contentsString notNil ifTrue:[
+        ignCaseInContents ifTrue:[ contentsString := contentsString asLowercase ].
+    ].
     notContentsString := notContentsStringArg.
-    ignCaseInNotContents ifTrue:[ notContentsString := notContentsString asLowercase ].    
 
+    notContentsString notNil ifTrue:[
+        ignCaseInNotContents ifTrue:[ notContentsString := notContentsString asLowercase ].    
+    ].
     filenameToCompareContentsOrNil notNil ifTrue:[
         fileSizesToSearchFor := OrderedCollection new.
         filesToSearchFor := OrderedCollection new.
@@ -1624,5 +1628,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.68 2004-12-16 11:44:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.69 2005-02-11 15:09:37 mb Exp $'
 ! !