diff --git a/PetitParser2-Tests/PP2SeaParserTest.class.st b/PetitParser2-Tests/PP2SeaParserTest.class.st
index c4c1d38e..661a16b9 100644
--- a/PetitParser2-Tests/PP2SeaParserTest.class.st
+++ b/PetitParser2-Tests/PP2SeaParserTest.class.st
@@ -29,6 +29,20 @@ PP2SeaParserTest >> seaInstance [
 	^ PP2SeaNode new
 ]
 
+{ #category : #tests }
+PP2SeaParserTest >> testCaseInsensitiveSea [ 
+	| sea parser |
+
+	sea := self seaInstance island: 'ISLAND' asPParser caseInsensitive.
+	parser := sea.
+
+	self assert: parser parse: 'SEA island SEA'.
+	self assert: self result size equals: 3.	
+
+	self assert: parser fail: 'SEA nothin here SEA'.
+
+]
+
 { #category : #tests }
 PP2SeaParserTest >> testNestedBlockDeepNested [
 	| block |
diff --git a/PetitParser2/PP2NextSetsVisitor.class.st b/PetitParser2/PP2NextSetsVisitor.class.st
index 68f34ce6..f58d9703 100644
--- a/PetitParser2/PP2NextSetsVisitor.class.st
+++ b/PetitParser2/PP2NextSetsVisitor.class.st
@@ -6,7 +6,7 @@ Class {
 		'nextSets',
 		'currentNext'
 	],
-	#category : 'PetitParser2-Analysis'
+	#category : #'PetitParser2-Analysis'
 }
 
 { #category : #accessing }
@@ -172,7 +172,8 @@ PP2NextSetsVisitor >> visitOptional: node [
 
 { #category : #visiting }
 PP2NextSetsVisitor >> visitPP2Node: node [
-	self error: 'should provide specific implementation'
+	"self error: 'should provide specific implementation'"
+	self visitDelegate: node
 ]
 
 { #category : #visiting }