diff --git a/kernel/Behavior.st b/kernel/Behavior.st
index 2f16439..43423c6 100644
--- a/kernel/Behavior.st
+++ b/kernel/Behavior.st
@@ -537,7 +537,7 @@ method dictionary, and iterating over the class hierarchy.'>
     selectors [
 	"Answer a Set of the receiver's selectors"
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	self methodDictionary isNil 
 	    ifTrue: [^Set new]
 	    ifFalse: [^self methodDictionary keys]
@@ -546,7 +546,7 @@ method dictionary, and iterating over the class hierarchy.'>
     allSelectors [
 	"Answer a Set of all the selectors understood by the receiver"
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	| aSet |
 	aSet := self selectors.
 	self allSuperclassesDo: [:superclass | aSet addAll: superclass selectors].
@@ -557,7 +557,7 @@ method dictionary, and iterating over the class hierarchy.'>
 	"Return the compiled method associated with selector, from the local
 	 method dictionary or one of a superclass; return nil if not found."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	| class method |
 	class := self.
 	
@@ -572,7 +572,7 @@ method dictionary, and iterating over the class hierarchy.'>
 	"Return the compiled method associated with selector, from the local
 	 method dictionary.  Evaluate aBlock if not found."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	self methodDictionary isNil ifTrue: [^aBlock value].
 	^self methodDictionary at: selector ifAbsent: aBlock
     ]
@@ -581,7 +581,7 @@ method dictionary, and iterating over the class hierarchy.'>
 	"Return the compiled method associated with selector, from the local
 	 method dictionary.  Error if not found."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	self methodDictionary isNil 
 	    ifTrue: [SystemExceptions.NotFound signalOn: selector what: 'key'].
 	^self methodDictionary at: selector
@@ -592,7 +592,7 @@ method dictionary, and iterating over the class hierarchy.'>
 	"Return the compiled method associated with selector, from the local
 	 method dictionary.  Error if not found."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	self methodDictionary isNil 
 	    ifTrue: [SystemExceptions.NotFound signalOn: selector what: 'key'].
 	^self methodDictionary at: selector
@@ -602,7 +602,7 @@ method dictionary, and iterating over the class hierarchy.'>
     selectorAt: method [
 	"Return selector for the given CompiledMethod"
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	self methodDictionary isNil 
 	    ifTrue: [SystemExceptions.NotFound signalOn: method what: 'method'].
 	^self methodDictionary keyAtValue: method
@@ -613,14 +613,14 @@ method dictionary, and iterating over the class hierarchy.'>
 	"Answer the parse tree for the given selector, or nil if there was an
 	 error.  Requires the Parser package to be loaded."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	^(self >> selector) methodParseNode
     ]
 
     sourceCodeAt: selector ifAbsent: aBlock [
 	"Answer source code (if available) for the given selector."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	| source |
 	source := (self >> selector) methodSourceCode.
 	source isNil ifTrue: [^aBlock value copy].
@@ -630,7 +630,7 @@ method dictionary, and iterating over the class hierarchy.'>
     sourceCodeAt: selector [
 	"Answer source code (if available) for the given selector."
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	^self sourceCodeAt: selector ifAbsent: [
 	    '" *** SOURCE CODE NOT AVAILABLE *** "']
     ]
@@ -638,7 +638,7 @@ method dictionary, and iterating over the class hierarchy.'>
     sourceMethodAt: selector [
 	"This is too dependent on the original implementation"
 
-	<category: 'accessing the methodDictionary'>
+	<category: 'accessing the method dictionary'>
 	self shouldNotImplement
     ]