diff --git a/src/Microdown/MicAnnotatedParagraphBlock.class.st b/src/Microdown/MicAnnotatedParagraphBlock.class.st
index aa0f27a6..ca64cea1 100644
--- a/src/Microdown/MicAnnotatedParagraphBlock.class.st
+++ b/src/Microdown/MicAnnotatedParagraphBlock.class.st
@@ -42,20 +42,20 @@ MicAnnotatedParagraphBlock >> closeMe [
 	body := self inlineParse: body
 ]
 
-{ #category : 'testing' }
+{ #category : 'accessing' }
 MicAnnotatedParagraphBlock >> defaultLabel [ 
 	
 	^ #note
 ]
 
-{ #category : 'testing' }
+{ #category : 'initialization' }
 MicAnnotatedParagraphBlock >> initialize [
 
 	super initialize.
 	validLabels := { #note. #important. #todo }
 ]
 
-{ #category : 'testing' }
+{ #category : 'accessing' }
 MicAnnotatedParagraphBlock >> lineMarkup [
 	
 	^ AnnotatedParagraphOpeningMarkup
diff --git a/src/Microdown/MicEnvironmentBlock.class.st b/src/Microdown/MicEnvironmentBlock.class.st
index 933db360..1e733c7b 100644
--- a/src/Microdown/MicEnvironmentBlock.class.st
+++ b/src/Microdown/MicEnvironmentBlock.class.st
@@ -119,19 +119,19 @@ MicEnvironmentBlock >> arguments [
 	^ arguments
 ]
 
-{ #category : 'parse support' }
+{ #category : 'accessing' }
 MicEnvironmentBlock >> body [
 
 	^ String streamContents: [:s |  self bodyElements do: [ :each | s nextPutAll: each substring ] ]
 ]
 
-{ #category : 'parse support' }
+{ #category : 'accessing' }
 MicEnvironmentBlock >> bodyElements [
 
 	^ children
 ]
 
-{ #category : 'parse support' }
+{ #category : 'accessing' }
 MicEnvironmentBlock >> bodyFromLine: line [
 	
 	| newBlock |
@@ -176,7 +176,7 @@ MicEnvironmentBlock >> extractFirstLineFrom: aLine [
 		ifFalse: [ firstLine ]
 ]
 
-{ #category : 'parse support' }
+{ #category : 'initialization' }
 MicEnvironmentBlock >> initialize [
 
 	super initialize.
diff --git a/src/Microdown/MicInlineDelimiter.class.st b/src/Microdown/MicInlineDelimiter.class.st
index db4103ad..ed09d894 100644
--- a/src/Microdown/MicInlineDelimiter.class.st
+++ b/src/Microdown/MicInlineDelimiter.class.st
@@ -43,7 +43,7 @@ MicInlineDelimiter class >> at: markup [
 	^ DelimiterDictionary at: markup ifAbsent: [ nil ]
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initialize [
 
 	<script>
@@ -51,7 +51,7 @@ MicInlineDelimiter class >> initialize [
 	Regex := nil
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initializeDelimiters [
 
 	self = MicInlineDelimiter ifFalse: [ ^ self ].
@@ -59,7 +59,7 @@ MicInlineDelimiter class >> initializeDelimiters [
 	self allSubclasses do: [ :class | class initializeDelimiters ]
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initializeRegex [
 
 	Regex := ((self all collect: [ :each | each markupAsRegex]) joinUsing: '|') asRegex