--- a/TextView.st	Tue Feb 03 10:19:42 2015 +0100
+++ b/TextView.st	Wed Feb 04 19:08:59 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 ListView subclass:#TextView
 	instanceVariableNames:'selectionStartLine selectionStartCol selectionEndLine
 		selectionEndCol clickPos clickStartLine clickStartCol clickLine
@@ -4280,9 +4282,10 @@
     "set the searchpattern for future searches"
 
     aStringOrNil isEmptyOrNil ifTrue:[
-	lastSearchPattern := nil.
+        lastSearchPattern := nil.
     ] ifFalse:[
-	lastSearchPattern := aStringOrNil asString withoutSeparators string.
+        "/ not withoutSeparators: may want to search for spaces...
+        lastSearchPattern := aStringOrNil asString "withoutSeparators" string.
     ].
 
     "Modified: / 6.3.1999 / 23:47:36 / cg"
@@ -4942,11 +4945,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.386 2014-12-23 14:55:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.387 2015-02-04 18:08:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.386 2014-12-23 14:55:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.387 2015-02-04 18:08:59 cg Exp $'
 ! !