--- a/VersionDiffBrowser.st	Fri Jan 19 19:50:26 2018 +0100
+++ b/VersionDiffBrowser.st	Fri Jan 19 23:42:23 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -586,6 +588,14 @@
                   itemValue: filterSelectorsMatching
                 )
                (MenuItem
+                  label: 'Remove Class Filter'
+                  itemValue: removeClassFilter
+                )
+               (MenuItem
+                  label: 'Remove Selector Filter'
+                  itemValue: removeSelectorFilter
+                )
+               (MenuItem
                   label: '-'
                 )
                (MenuItem
@@ -3087,6 +3097,11 @@
     
     |filterName|
 
+    RememberedFilters isNil ifTrue:[
+        Dialog warn:'No filter was defined'.
+        ^ self
+    ].
+
     filterName := Dialog 
                     request:'Forget Filter Named:' 
                     list:(RememberedFilters keys asNewOrderedCollection sort).
@@ -3163,6 +3178,23 @@
     "Modified: / 06-02-2017 / 09:20:35 / cg"
 !
 
+removeClassFilter
+    "clear the current class filter (but not named ones)"
+
+    classPatternFilters := nil.
+    self filterChanged
+!
+
+removeSelectorFilter
+    "clear the current selector filter (but not named ones)"
+
+    selectorPatternFilters := nil.
+    self filterChanged
+
+    "Created: / 06-02-2017 / 02:29:07 / cg"
+    "Modified: / 06-02-2017 / 09:18:20 / cg"
+!
+
 setFilterParameters:filterParameters
     "setup from a remembered filter"
     
@@ -3377,7 +3409,7 @@
             ].
         ].
         changeClassName notEmptyOrNil ifTrue:[
-            selectorString := ' » ',selectorString
+            selectorString := ' » ',selectorString
         ]
     ].