diff --git a/src/Carp/CarpDefinitionsElement.class.st b/src/Carp/CarpDefinitionsElement.class.st
index 4ae2e87..2e0fc30 100644
--- a/src/Carp/CarpDefinitionsElement.class.st
+++ b/src/Carp/CarpDefinitionsElement.class.st
@@ -7,7 +7,7 @@ Class {
 	#category : #'Carp-Coder'
 }
 
-{ #category : #accessing }
+{ #category : #'ui building' }
 CarpDefinitionsElement >> addDefinitionEditorShortcutsTo: aPropertiesElement [
 
 	aPropertiesElement addShortcut: (BlShortcutWithAction new
@@ -35,7 +35,7 @@ CarpDefinitionsElement >> addDefinitionEditorShortcutsTo: aPropertiesElement [
 								 aNextFocusElement requestFocus ] ] ])
 ]
 
-{ #category : #accessing }
+{ #category : #'ui building' }
 CarpDefinitionsElement >> buildDefinitionEditor [
 
 	| theProperties |
@@ -51,7 +51,7 @@ CarpDefinitionsElement >> buildDefinitionEditor [
 	^ theProperties
 ]
 
-{ #category : #accessing }
+{ #category : #'ui building' }
 CarpDefinitionsElement >> buildDefinitionReader [
 
 	| theProperties theReaders |
@@ -66,7 +66,7 @@ CarpDefinitionsElement >> buildDefinitionReader [
 	^ theProperties
 ]
 
-{ #category : #accessing }
+{ #category : #initialization }
 CarpDefinitionsElement >> initialize [
 	super initialize.	
 
@@ -87,7 +87,7 @@ CarpDefinitionsElement >> module: aCarpModule [
 	self updateElements
 ]
 
-{ #category : #accessing }
+{ #category : #'ui building' }
 CarpDefinitionsElement >> updateElements [
 
 	self header: [ 
diff --git a/src/Carp/CarpModule.class.st b/src/Carp/CarpModule.class.st
index e95f074..a4260c5 100644
--- a/src/Carp/CarpModule.class.st
+++ b/src/Carp/CarpModule.class.st
@@ -30,7 +30,7 @@ CarpModule >> addUse: aString [
 	uses add: aString
 ]
 
-{ #category : #accessing }
+{ #category : #coders }
 CarpModule >> carpCoderCommentsFor: aView [
 
 	<gtModuleView>
@@ -64,7 +64,7 @@ CarpModule >> carpCoderCommentsFor: aView [
 			  aTab viewContentElement children first text: self documentation ]
 ]
 
-{ #category : #accessing }
+{ #category : #coders }
 CarpModule >> carpCoderStreamingMethodsFor: aView context: aPhlowContext [
 	<gtModuleView>
 	| aMethodsCoder aMethodsCoderViewModel aNewMethodCoderHolder |
@@ -171,7 +171,7 @@ CarpModule >> uses [
 	^ uses
 ]
 
-{ #category : #accessing }
+{ #category : #magritte }
 CarpModule >> usesDescription [
 
 	<magritteDescription>