--- a/Tools__NewSystemBrowser.st	Tue Feb 14 14:22:36 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Feb 14 14:23:01 2012 +0100
@@ -22,13 +22,12 @@
 	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
 		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
 		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
-		LastSearchPatterns LastClassFilterBlockString
-		LastMethodFilterBlockString LastBreakPointConditionString
-		LastIndividualChecks LastAcceptPackage LastVariableRenames
-		LastVisitorClassName LastTemporaryVariableName BookMarks
-		FindHistory CheckForInstancesWhenRemovingClasses
-		SynchronousUpdate DoubleClickIsOpenBrowser
-		ShowMethodTemplateWhenProtocolIsSelected
+		LastClassFilterBlockString LastMethodFilterBlockString
+		LastBreakPointConditionString LastIndividualChecks
+		LastAcceptPackage LastVariableRenames LastVisitorClassName
+		LastTemporaryVariableName BookMarks FindHistory
+		CheckForInstancesWhenRemovingClasses SynchronousUpdate
+		DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
 		DefaultShowMethodTemplate DefaultShowMethodInheritance
 		DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
 		DefaultImmediateExplaining DefaultSyntaxColoring
@@ -289,10 +288,6 @@
     ^ NewNavigationHistory
 
     "Created: / 03-07-2011 / 13:21:53 / cg"
-!
-
-lastSearchPatterns
-    ^ LastSearchPatterns
 ! !
 
 !NewSystemBrowser class methodsFor:'defaults'!
@@ -50556,19 +50551,9 @@
 !
 
 rememberSearchPattern:aString
-    LastSearchPatterns isNil ifTrue:[
-        LastSearchPatterns := OrderedCollection new.
-    ].
-    (LastSearchPatterns includes:aString) ifTrue:[
-        LastSearchPatterns remove:aString.
-    ] ifFalse:[
-        LastSearchPatterns size > 20 ifTrue:[
-            LastSearchPatterns removeFirst
-        ]
-    ].
-    LastSearchPatterns addFirst:aString.
-
-    "Modified: / 24-11-2010 / 12:51:31 / cg"
+    self class rememberSearchPattern:aString
+
+    "Modified: / 14-02-2012 / 14:00:36 / cg"
 ! !
 
 !NewSystemBrowser methodsFor:'private-presentation'!
@@ -55795,11 +55780,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1712 2012-02-14 10:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1713 2012-02-14 13:23:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1712 2012-02-14 10:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1713 2012-02-14 13:23:01 cg Exp $'
 !
 
 version_SVN