diff --git a/src/Spec2-CommonWidgets/SpFilteringListPresenter.class.st b/src/Spec2-CommonWidgets/SpFilteringListPresenter.class.st
index bcd706f1..20f169aa 100644
--- a/src/Spec2-CommonWidgets/SpFilteringListPresenter.class.st
+++ b/src/Spec2-CommonWidgets/SpFilteringListPresenter.class.st
@@ -141,6 +141,13 @@ SpFilteringListPresenter >> filterText [
 	^  self filterInputPresenter text
 ]
 
+{ #category : 'api' }
+SpFilteringListPresenter >> headerTitle: aString [
+	"Set the receiver's header title to aString"
+
+	listPresenter headerTitle: aString
+]
+
 { #category : 'initialization' }
 SpFilteringListPresenter >> initializePresenters [
 
diff --git a/src/Spec2-Examples/SpFilteringListPresenter.extension.st b/src/Spec2-Examples/SpFilteringListPresenter.extension.st
index 22a87108..2445118c 100644
--- a/src/Spec2-Examples/SpFilteringListPresenter.extension.st
+++ b/src/Spec2-Examples/SpFilteringListPresenter.extension.st
@@ -6,11 +6,11 @@ SpFilteringListPresenter class >> example [
 	<sampleInstance>
 	| example |
 	example := self new.
-	example items: RBBrowserEnvironment default classes asArray.
-	example open.
-	example withWindowDo: [ :window | 
-		window title: self name asString , ' example' ].
-
+	example 
+		items: RBBrowserEnvironment default classes asArray;
+		headerTitle: 'Classes';
+		open;
+		withWindowDo: [ :window | window title: self name asString , ' example' ].
 	^ example
 ]