--- a/TextView.st	Tue Nov 22 15:33:56 1994 +0100
+++ b/TextView.st	Mon Nov 28 22:05:43 1994 +0100
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.12 1994-11-17 14:38:42 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.13 1994-11-28 21:05:24 claus Exp $
 '!
 
 !TextView class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.12 1994-11-17 14:38:42 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.13 1994-11-28 21:05:24 claus Exp $
 "
 !
 
@@ -891,7 +891,11 @@
 setSearchPattern:aString
     "set the searchpattern for future searches"
 
-    searchPattern := aString withoutSeparators
+    aString isNil ifTrue:[
+	searchPattern := aString
+    ] ifFalse:[
+	searchPattern := aString withoutSeparators
+    ]
 !
 
 setSearchPattern