diff --git a/src/NewTools-Debugger-Commands/StCopyStackToClipboardCommand.class.st b/src/NewTools-Debugger-Commands/StCopyStackToClipboardCommand.class.st
index 66aaa1838..5667be3cc 100644
--- a/src/NewTools-Debugger-Commands/StCopyStackToClipboardCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StCopyStackToClipboardCommand.class.st
@@ -2,38 +2,39 @@
 Requests the debugger to copy its stack on the Clipboard
 "
 Class {
-	#name : #StCopyStackToClipboardCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StCopyStackToClipboardCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StCopyStackToClipboardCommand class >> defaultDescription [
 	^ 'Copy the debugging stack to the clipboard.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StCopyStackToClipboardCommand class >> defaultIconName [
 
 	^ #debuggerCopyStack
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StCopyStackToClipboardCommand class >> defaultName [
 	^ 'Copy Stack to Clipboard'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StCopyStackToClipboardCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StCopyStackToClipboardCommand >> appliesTo: aDebugger [
 	^ true
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StCopyStackToClipboardCommand >> execute [
 	self debugger copyStackToClipboard
 ]
diff --git a/src/NewTools-Debugger-Commands/StDebuggerCommand.class.st b/src/NewTools-Debugger-Commands/StDebuggerCommand.class.st
index f8dcc4101..d321c9d08 100644
--- a/src/NewTools-Debugger-Commands/StDebuggerCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDebuggerCommand.class.st
@@ -2,12 +2,13 @@
 I command actions that can be requested from a debugger
 "
 Class {
-	#name : #StDebuggerCommand,
-	#superclass : #CmCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StDebuggerCommand',
+	#superclass : 'CmCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerCommand class >> codeContextMenuCommandsForDebugger: debugger [
 
 	^ self
@@ -15,17 +16,17 @@ StDebuggerCommand class >> codeContextMenuCommandsForDebugger: debugger [
 		for: debugger
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerCommand class >> defaultIconName [
 	^ self subclassResponsibility
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerCommand class >> defaultShortcut [
 	^ self subclassResponsibility
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerCommand class >> forSpecContext: anObject [
 	^ (self
 		forSpecWithIconNamed: self defaultIconName
@@ -34,18 +35,18 @@ StDebuggerCommand class >> forSpecContext: anObject [
 		yourself
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerCommand class >> isAbstract [
 
 	^ self == StDebuggerCommand
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StDebuggerCommand class >> shortName [
 	^self defaultName
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerCommand class >> toolbarCommandsForDebugger: debugger [
 
 	^ self
@@ -53,7 +54,7 @@ StDebuggerCommand class >> toolbarCommandsForDebugger: debugger [
 		for: debugger
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StDebuggerCommand >> = anObject [
 	"Answer whether the receiver and anObject represent the same object."
 
@@ -65,35 +66,35 @@ StDebuggerCommand >> = anObject [
 		and: [ basicName = anObject name ]
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerCommand >> appliesTo: aDebugger [
 	^ aDebugger canExecuteDebugCommand
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommand >> canBeExecuted [
 	^ self appliesTo: self debugger
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommand >> context: anObject [
 
 	super context: anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommand >> debugger [
 	^self context
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StDebuggerCommand >> hash [
 	"Answer an integer value that is related to the identity of the receiver."
 
 	^ context hash bitXor: basicName hash
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerCommand >> initialize [
 
 	super initialize.
diff --git a/src/NewTools-Debugger-Commands/StDebuggerSettingsCommand.class.st b/src/NewTools-Debugger-Commands/StDebuggerSettingsCommand.class.st
index d6788a5d4..1a756c908 100644
--- a/src/NewTools-Debugger-Commands/StDebuggerSettingsCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDebuggerSettingsCommand.class.st
@@ -2,32 +2,33 @@
 I open a settings browser focused on the debugger and debugging systems settings.
 "
 Class {
-	#name : #StDebuggerSettingsCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StDebuggerSettingsCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StDebuggerSettingsCommand class >> defaultDescription [
 	^'I open a settings browser focused on the debugger and debugging systems settings.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerSettingsCommand class >> defaultIconName [
 	^ #configuration
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StDebuggerSettingsCommand class >> defaultName [ 
 	^'Settings'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerSettingsCommand class >> defaultShortcut [
 	^$f meta, $s meta
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StDebuggerSettingsCommand >> execute [
 
 	SettingBrowser new
diff --git a/src/NewTools-Debugger-Commands/StDebuggerToggleFilterStackCommand.class.st b/src/NewTools-Debugger-Commands/StDebuggerToggleFilterStackCommand.class.st
index c6b43057d..7d3b3f7f7 100644
--- a/src/NewTools-Debugger-Commands/StDebuggerToggleFilterStackCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDebuggerToggleFilterStackCommand.class.st
@@ -2,32 +2,33 @@
 I toggle the stack filtering in the debugger on and off, and I trigger a debugger update.
 "
 Class {
-	#name : #StDebuggerToggleFilterStackCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StDebuggerToggleFilterStackCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StDebuggerToggleFilterStackCommand class >> defaultDescription [
 	^'Toggle stack filtering on and off'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerToggleFilterStackCommand class >> defaultIconName [
 	^ #changeSorter
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StDebuggerToggleFilterStackCommand class >> defaultName [ 
 	^'Toggle stack filtering'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerToggleFilterStackCommand class >> defaultShortcut [
 	^$c meta, $f meta
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StDebuggerToggleFilterStackCommand >> execute [
 	StDebuggerActionModel shouldFilterStack: StDebuggerActionModel shouldFilterStack not.
 	self context updateStep
diff --git a/src/NewTools-Debugger-Commands/StDefineClassCommand.class.st b/src/NewTools-Debugger-Commands/StDefineClassCommand.class.st
index 84fb387ac..dc19be8b4 100644
--- a/src/NewTools-Debugger-Commands/StDefineClassCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDefineClassCommand.class.st
@@ -2,22 +2,23 @@
 I request the debugger to define a missing class in case the current context is interrupted on a DNU exception and a receiver that is an unknown symbol
 "
 Class {
-	#name : #StDefineClassCommand,
-	#superclass : #StDefineMissingEntityCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StDefineClassCommand',
+	#superclass : 'StDefineMissingEntityCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineClassCommand class >> defaultName [
 	^ 'Create missing class'
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDefineClassCommand >> appliesTo: aDebugger [
 	^ aDebugger canExecuteCreateMissingClassCommand
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StDefineClassCommand >> execute [	
 	self debugger createMissingClass
 ]
diff --git a/src/NewTools-Debugger-Commands/StDefineMethodCommand.class.st b/src/NewTools-Debugger-Commands/StDefineMethodCommand.class.st
index b7478e74b..990b74051 100644
--- a/src/NewTools-Debugger-Commands/StDefineMethodCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDefineMethodCommand.class.st
@@ -2,22 +2,23 @@
 I request the debugger to define a missing method in case the current context is interrupted on a DNU exception
 "
 Class {
-	#name : #StDefineMethodCommand,
-	#superclass : #StDefineMissingEntityCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StDefineMethodCommand',
+	#superclass : 'StDefineMissingEntityCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineMethodCommand class >> defaultName [
 	^ 'Create missing command'
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDefineMethodCommand >> appliesTo: aDebugger [
 	^ aDebugger canExecuteCreateMissingMethodCommand
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StDefineMethodCommand >> execute [
 	self debugger createMissingMethod
 ]
diff --git a/src/NewTools-Debugger-Commands/StDefineMissingEntityCommand.class.st b/src/NewTools-Debugger-Commands/StDefineMissingEntityCommand.class.st
index 4eaae5d80..67d71273d 100644
--- a/src/NewTools-Debugger-Commands/StDefineMissingEntityCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDefineMissingEntityCommand.class.st
@@ -9,67 +9,68 @@ For a given debugging context (i.e., the context of the debugger's debug session
 For instance, if we are in the context of a DNU, it makes only sense to propose to create the missing method (StCreateMissingMethodDebugCommand) and all other subcommands are inapplicable.
 "
 Class {
-	#name : #StDefineMissingEntityCommand,
-	#superclass : #StDebuggerCommand,
+	#name : 'StDefineMissingEntityCommand',
+	#superclass : 'StDebuggerCommand',
 	#instVars : [
 		'subCommands'
 	],
-	#category : #'NewTools-Debugger-Commands'
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineMissingEntityCommand class >> defaultDescription [
     ^ 'Create the missing class or method in the user prompted class, and restart the debugger at the location where it can be edited.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDefineMissingEntityCommand class >> defaultIconName [
 
 	^ #debuggerDefineEntity
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineMissingEntityCommand class >> defaultName [
 	^ 'Create'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDefineMissingEntityCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StDefineMissingEntityCommand >> applicableCommand [
 	^ subCommands
 		detect: [ :subCommand | subCommand canBeExecuted ]
 		ifNone: [ nil ]
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDefineMissingEntityCommand >> appliesTo: aDebugger [
 	^ subCommands
 		anySatisfy: [ :subCommand | subCommand appliesTo: aDebugger ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineMissingEntityCommand >> context: aDebugger [
 	super context: aDebugger.
 	subCommands := self class allSubclasses
 		collect: [ :subCommand | subCommand forContext: aDebugger ]
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StDefineMissingEntityCommand >> execute [
 	self applicableCommand ifNotNil: [ :cmd | cmd execute ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDefineMissingEntityCommand >> initialize [
 	super initialize.
 	subCommands := OrderedCollection new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineMissingEntityCommand >> subCommands [
 	^subCommands
 ]
diff --git a/src/NewTools-Debugger-Commands/StDefineSubclassResponsabilityCommand.class.st b/src/NewTools-Debugger-Commands/StDefineSubclassResponsabilityCommand.class.st
index b6798cacf..dd7a4eeb5 100644
--- a/src/NewTools-Debugger-Commands/StDefineSubclassResponsabilityCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StDefineSubclassResponsabilityCommand.class.st
@@ -2,32 +2,33 @@
 I request the debugger to define a subclass responsibility method, in case the current context is interrupted on a subclass responsibility exception
 "
 Class {
-	#name : #StDefineSubclassResponsabilityCommand,
-	#superclass : #StDefineMissingEntityCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StDefineSubclassResponsabilityCommand',
+	#superclass : 'StDefineMissingEntityCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineSubclassResponsabilityCommand class >> defaultDescription [
 	^ 'Create a method in a class having the responsability to implement it.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDefineSubclassResponsabilityCommand class >> defaultIconName [
 	^ #changeAdd
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDefineSubclassResponsabilityCommand class >> defaultName [
 	^ 'Create subclass responsibility'
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDefineSubclassResponsabilityCommand >> appliesTo: aDebugger [
 	^ aDebugger canExecuteCreateSubclassResponsibilityCommand
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDefineSubclassResponsabilityCommand >> execute [
 	self debugger createSubclassResponsibility
 ]
diff --git a/src/NewTools-Debugger-Commands/StFileOutMethodCommand.class.st b/src/NewTools-Debugger-Commands/StFileOutMethodCommand.class.st
index 353d2342c..8c73c00b1 100644
--- a/src/NewTools-Debugger-Commands/StFileOutMethodCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StFileOutMethodCommand.class.st
@@ -2,37 +2,38 @@
 Requests the debugger to file out the method of the selected context in the stack
 "
 Class {
-	#name : #StFileOutMethodCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StFileOutMethodCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFileOutMethodCommand class >> defaultDescription [
 	^ 'Write the source code of the selected method on a file.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StFileOutMethodCommand class >> defaultIconName [
 	^ #smallExport
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFileOutMethodCommand class >> defaultName [	
 	^ 'File out method'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StFileOutMethodCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StFileOutMethodCommand >> appliesTo: aDebugger [
 	^ true
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StFileOutMethodCommand >> execute [
 	self debugger fileOutSelectedContext
 ]
diff --git a/src/NewTools-Debugger-Commands/StPeelToFirstCommand.class.st b/src/NewTools-Debugger-Commands/StPeelToFirstCommand.class.st
index 8d85b3cb2..0e39f173e 100644
--- a/src/NewTools-Debugger-Commands/StPeelToFirstCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StPeelToFirstCommand.class.st
@@ -2,37 +2,38 @@
 Requests the debugger to peel the stack to the first occurrence of the currently selected message in the stack
 "
 Class {
-	#name : #StPeelToFirstCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StPeelToFirstCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StPeelToFirstCommand class >> defaultDescription [
 	^ 'Peels the stack back to the second occurance of the currently selected message.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StPeelToFirstCommand class >> defaultIconName [
 	^ #down
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StPeelToFirstCommand class >> defaultName [
 	^ 'Peel to first like this'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StPeelToFirstCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StPeelToFirstCommand >> appliesTo: aDebugger [
 	^ true
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StPeelToFirstCommand >> execute [
 	self debugger peelToFirstLike: self debugger currentContext
 ]
diff --git a/src/NewTools-Debugger-Commands/StProceedCommand.class.st b/src/NewTools-Debugger-Commands/StProceedCommand.class.st
index 64e2c3b93..128952be8 100644
--- a/src/NewTools-Debugger-Commands/StProceedCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StProceedCommand.class.st
@@ -2,33 +2,34 @@
 Request the debugger to proceed the debug session
 "
 Class {
-	#name : #StProceedCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StProceedCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StProceedCommand class >> defaultDescription [
 	^ 'Relinquish debugger control and proceed execution from the current point of debugger control.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StProceedCommand class >> defaultIconName [
 	^ #debuggerProceed
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StProceedCommand class >> defaultName [
 	<toolbarDebugCommand: 10>
 	^ 'Proceed'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StProceedCommand class >> defaultShortcut [
 	^ PharoShortcuts current resumeExecutionShortcut
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StProceedCommand >> execute [
 	self debugger proceedDebugSession
 ]
diff --git a/src/NewTools-Debugger-Commands/StRestartCommand.class.st b/src/NewTools-Debugger-Commands/StRestartCommand.class.st
index bce391c01..3e49d231a 100644
--- a/src/NewTools-Debugger-Commands/StRestartCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StRestartCommand.class.st
@@ -2,40 +2,41 @@
 Request the debugger to restart its current context
 "
 Class {
-	#name : #StRestartCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StRestartCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StRestartCommand class >> defaultDescription [
 	^ 'Go back to the start of the current execution context, resetting all local variables and take debugger control.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StRestartCommand class >> defaultIconName [
 
 	^ #debuggerRestart
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StRestartCommand class >> defaultName [
 	<toolbarDebugCommand: 900>
 
 	^ 'Restart'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StRestartCommand class >> defaultShortcut [
 	^ PharoShortcuts current restartExecutionShortcut
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StRestartCommand >> appliesTo: aDebugger [
 	^ aDebugger canExecuteRestartCommand
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StRestartCommand >> execute [
 	self debugger restartCurrentContext
 ]
diff --git a/src/NewTools-Debugger-Commands/StReturnValueCommand.class.st b/src/NewTools-Debugger-Commands/StReturnValueCommand.class.st
index 6983713b1..c2fcc6c02 100644
--- a/src/NewTools-Debugger-Commands/StReturnValueCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StReturnValueCommand.class.st
@@ -2,47 +2,48 @@
 Requests the debugger to return from the current context with the result of the evaluation of a user-defined expression.
 "
 Class {
-	#name : #StReturnValueCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StReturnValueCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StReturnValueCommand class >> defaultDescription [
 	^ 'Return of a given value to the previous context.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StReturnValueCommand class >> defaultIconName [
 
 	^ #debuggerReturn
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StReturnValueCommand class >> defaultLabel [
 
 	^ 'Return entered value'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StReturnValueCommand class >> defaultName [
 	<toolbarDebugCommand: 910>
 	^ 'Return'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StReturnValueCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StReturnValueCommand >> appliesTo: aDebugger [
 	"I can always return from a context, for ex. if I'm stuck because of a DNU.
 	Except from dead contexts"
 	^ aDebugger canExecuteReturnCommand
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StReturnValueCommand >> execute [
 	self debugger returnEnteredValue
 ]
diff --git a/src/NewTools-Debugger-Commands/StRunToSelectionCommand.class.st b/src/NewTools-Debugger-Commands/StRunToSelectionCommand.class.st
index bad8de462..b007e055f 100644
--- a/src/NewTools-Debugger-Commands/StRunToSelectionCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StRunToSelectionCommand.class.st
@@ -2,34 +2,35 @@
 Request the debugger to run the execution up to the cursor selection
 "
 Class {
-	#name : #StRunToSelectionCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StRunToSelectionCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StRunToSelectionCommand class >> defaultDescription [
 	^ 'Execute methods up to the text cursor position and return debugger control.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StRunToSelectionCommand class >> defaultIconName [
 
 	^ #debuggerRunToSelection
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StRunToSelectionCommand class >> defaultName [
 	<toolbarDebugCommand: 50>
 	^ 'Run to'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StRunToSelectionCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StRunToSelectionCommand >> execute [
 	self debugger runToSelection
 ]
diff --git a/src/NewTools-Debugger-Commands/StShowFullStackCommand.class.st b/src/NewTools-Debugger-Commands/StShowFullStackCommand.class.st
deleted file mode 100644
index b5af737ee..000000000
--- a/src/NewTools-Debugger-Commands/StShowFullStackCommand.class.st
+++ /dev/null
@@ -1,39 +0,0 @@
-"
-Request the debugger to show all the stack in its stack pane
-"
-Class {
-	#name : #StShowFullStackCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
-}
-
-{ #category : #default }
-StShowFullStackCommand class >> defaultDescription [
-	^ 'Shows the full stack.'
-]
-
-{ #category : #initialization }
-StShowFullStackCommand class >> defaultIconName [
-	^ #glamorousMore
-]
-
-{ #category : #default }
-StShowFullStackCommand class >> defaultName [
-	<toolbarDebugCommand: 999>
-	^ 'Stack'
-]
-
-{ #category : #initialization }
-StShowFullStackCommand class >> defaultShortcut [
-	^ nil
-]
-
-{ #category : #testing }
-StShowFullStackCommand >> appliesTo: aDebugger [
-	^ true
-]
-
-{ #category : #hooks }
-StShowFullStackCommand >> execute [
-	self debugger showFullStack
-]
diff --git a/src/NewTools-Debugger-Commands/StStepIntoCommand.class.st b/src/NewTools-Debugger-Commands/StStepIntoCommand.class.st
index b98d372f9..6202be8d2 100644
--- a/src/NewTools-Debugger-Commands/StStepIntoCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StStepIntoCommand.class.st
@@ -2,35 +2,36 @@
 Requests the debugger to step into the next expression evaluation
 "
 Class {
-	#name : #StStepIntoCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StStepIntoCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StStepIntoCommand class >> defaultDescription [
 	^ 'Step in the highlighted message, i.e. follow the sent message, taking debugger control in the method invoked.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StStepIntoCommand class >> defaultIconName [
 
 	^ #debuggerStepInto
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StStepIntoCommand class >> defaultName [
 	<toolbarDebugCommand: 20>
 	
 	^ 'Into'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StStepIntoCommand class >> defaultShortcut [
 	^ PharoShortcuts current stepIntoShortcut
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StStepIntoCommand >> execute [
 	self debugger stepInto
 ]
diff --git a/src/NewTools-Debugger-Commands/StStepOverCommand.class.st b/src/NewTools-Debugger-Commands/StStepOverCommand.class.st
index 38204d061..e750cadba 100644
--- a/src/NewTools-Debugger-Commands/StStepOverCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StStepOverCommand.class.st
@@ -2,35 +2,36 @@
 Requests the debugger to step over the next expression evaluation
 "
 Class {
-	#name : #StStepOverCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StStepOverCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StStepOverCommand class >> defaultDescription [
 	^'Step over the highlighted message, i.e. do not follow the sent message, taking debugger control after the method invoked returns.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StStepOverCommand class >> defaultIconName [
 
 	^ #debuggerStepOver
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StStepOverCommand class >> defaultName [
 	<toolbarDebugCommand: 40>
 
 	^ 'Over'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StStepOverCommand class >> defaultShortcut [
 	^ PharoShortcuts current stepOverShortcut
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StStepOverCommand >> execute [
 	self debugger stepOver
 ]
diff --git a/src/NewTools-Debugger-Commands/StStepThroughCommand.class.st b/src/NewTools-Debugger-Commands/StStepThroughCommand.class.st
index ed1a1a082..d0f255230 100644
--- a/src/NewTools-Debugger-Commands/StStepThroughCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StStepThroughCommand.class.st
@@ -2,35 +2,36 @@
 Requests the debugger to step over the next expression evaluation
 "
 Class {
-	#name : #StStepThroughCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StStepThroughCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StStepThroughCommand class >> defaultDescription [
 	^ 'Step over the highlighted message, i.e. do not follow the sent message, taking debugger control after the method invoked returns or whenever execution should return inside a block used as an argument before that.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StStepThroughCommand class >> defaultIconName [
 
 	^ #debuggerStepThrough 
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StStepThroughCommand class >> defaultName [
 	<toolbarDebugCommand: 30>
 
 	^ 'Through'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StStepThroughCommand class >> defaultShortcut [
 	^ PharoShortcuts current stepThroughShortcut
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StStepThroughCommand >> execute [
 	self debugger stepThrough
 ]
diff --git a/src/NewTools-Debugger-Commands/StWhereIsCommand.class.st b/src/NewTools-Debugger-Commands/StWhereIsCommand.class.st
index 4d7ec8eb0..789dfaca9 100644
--- a/src/NewTools-Debugger-Commands/StWhereIsCommand.class.st
+++ b/src/NewTools-Debugger-Commands/StWhereIsCommand.class.st
@@ -2,39 +2,40 @@
 Requests the debugger to reselect in its code pane the next expression to be executed
 "
 Class {
-	#name : #StWhereIsCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Commands'
+	#name : 'StWhereIsCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Commands',
+	#package : 'NewTools-Debugger-Commands'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StWhereIsCommand class >> defaultDescription [
 	^ 'Highligh the next method to be executed (step) by the debugger.'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StWhereIsCommand class >> defaultIconName [
 
 	^ #debuggerWhereIs 
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StWhereIsCommand class >> defaultName [
 	<toolbarDebugCommand: 1000>
 	^ 'Where is?'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StWhereIsCommand class >> defaultShortcut [
 	^ nil
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StWhereIsCommand >> appliesTo: aDebugger [
 	^ true
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 StWhereIsCommand >> execute [
 	self debugger selectNextExecutedExpression
 ]
diff --git a/src/NewTools-Debugger-Commands/package.st b/src/NewTools-Debugger-Commands/package.st
index 9fe475ce8..8b4880708 100644
--- a/src/NewTools-Debugger-Commands/package.st
+++ b/src/NewTools-Debugger-Commands/package.st
@@ -1 +1 @@
-Package { #name : #'NewTools-Debugger-Commands' }
+Package { #name : 'NewTools-Debugger-Commands' }
diff --git a/src/NewTools-Debugger-Tests/ContextTest.extension.st b/src/NewTools-Debugger-Tests/ContextTest.extension.st
index b1bcda8f1..50b8804c6 100644
--- a/src/NewTools-Debugger-Tests/ContextTest.extension.st
+++ b/src/NewTools-Debugger-Tests/ContextTest.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ContextTest }
+Extension { #name : 'ContextTest' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 ContextTest >> testFailedAssertionContextInSenderChain [
 
 	
diff --git a/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st b/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st
index af618dd74..353cbc898 100644
--- a/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st
+++ b/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #HaltInCompiledBlockPrintOnTest,
-	#superclass : #TestCase,
+	#name : 'HaltInCompiledBlockPrintOnTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'oldCode'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 HaltInCompiledBlockPrintOnTest >> setUp [
 	super setUp.
 	
@@ -17,13 +19,13 @@ HaltInCompiledBlockPrintOnTest >> setUp [
 	'.
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 HaltInCompiledBlockPrintOnTest >> tearDown [ 
 	oldCode ifNotNil: 	[BlockClosure compileSilently: oldCode].
 	super tearDown
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 HaltInCompiledBlockPrintOnTest >> testExecutingHaltingPrintOnABlockOpensASingleDebugger [
 
 	| ourException dbg debugSession sem myProcess |
diff --git a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st
index c423ce1f6..2270e85ec 100644
--- a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st
+++ b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #ObjectWithPrintingRaisingHalt,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'ObjectWithPrintingRaisingHalt',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #printing }
+{ #category : 'printing' }
 ObjectWithPrintingRaisingHalt >> printOn: aStream [
 
 	<haltOrBreakpointForTesting>
diff --git a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st
index 979f84462..ef59882cc 100644
--- a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st
+++ b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #ObjectWithPrintingRaisingHaltTest,
-	#superclass : #TestCase,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'ObjectWithPrintingRaisingHaltTest',
+	#superclass : 'TestCase',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 ObjectWithPrintingRaisingHaltTest >> testInspectingObjectWithPrintOnWithHaltOpenInspector [
 	"Make sure that inspecting an object with a broken printOn: does not produce an endless loop.
 	"
diff --git a/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st b/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st
index 24456e027..d2285fa79 100644
--- a/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st
+++ b/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st
@@ -4,25 +4,27 @@ By default, I act as if a user validated the requested popup.
 This is for tests.
 "
 Class {
-	#name : #StDebugContextForTests,
-	#superclass : #DebugContext,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StDebugContextForTests',
+	#superclass : 'DebugContext',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #private }
+{ #category : 'private' }
 StDebugContextForTests >> browseMethod: aMethod [
 
 	"Do not open a browser, we are in a test"
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugContextForTests >> confirm: aString [
 	"Voluntarily returns true to simulate popup validation"
 
 	^ true
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugContextForTests >> confirm: message trueChoice: trueChoice falseChoice: falseChoice [
 	"Yes?"
 	^ true
diff --git a/src/NewTools-Debugger-Tests/StDebugger.extension.st b/src/NewTools-Debugger-Tests/StDebugger.extension.st
index 5d592da75..ff52c8b4a 100644
--- a/src/NewTools-Debugger-Tests/StDebugger.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebugger.extension.st
@@ -1,18 +1,18 @@
-Extension { #name : #StDebugger }
+Extension { #name : 'StDebugger' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebugger >> inspector [
 
 	^ inspector
 ]
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebugger >> stackAndCodeContainer [
 
 	^ stackAndCodeContainer
 ]
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebugger >> toolbarCommandGroup [
 
 	^ toolbarCommandGroup
diff --git a/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st b/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st
index 28562fc79..1ec0e4a77 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #StDebuggerActionModel }
+Extension { #name : 'StDebuggerActionModel' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerActionModel >> hasSubscriber: aDebugger [
 
 	^ self announcer hasSubscriber: aDebugger
diff --git a/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st
index 6393ff4eb..bf62e6b2a 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st
@@ -1,20 +1,22 @@
 Class {
-	#name : #StDebuggerActionModelAnnouncementTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerActionModelAnnouncementTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debugActionModel'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelAnnouncementTest >> setUp [
 
 	super setUp.
 	debugActionModel := StMockDebuggerActionModel new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelAnnouncementTest >> testDebuggerActionModel [
 
 	| actionModelAnnouncement |
diff --git a/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st
index 86c81fb27..5e05ecd41 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : #StDebuggerActionModelTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerActionModelTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugActionModel',
@@ -10,21 +10,23 @@ Class {
 		'methodWithBlockContextOriginalSource',
 		'setResultOriginalSourceCode'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #benchmarking }
+{ #category : 'benchmarking' }
 StDebuggerActionModelTest class >> benchFilterStack [
 	<script>
 	^self new benchmarkFilterStack inspect
 ]
 
-{ #category : #benchmarks }
+{ #category : 'benchmarks' }
 StDebuggerActionModelTest >> bench: aBlock [
 	^ aBlock timeToRun asNanoSeconds
 ]
 
-{ #category : #benchmarks }
+{ #category : 'benchmarks' }
 StDebuggerActionModelTest >> benchmarkFilterStack [
 	| stack1 stack2 beforeResults afterResults |
 	[ self method1: 0 ]
@@ -53,7 +55,7 @@ StDebuggerActionModelTest >> benchmarkFilterStack [
 	New behavior: ', afterResults printString, ' nanoseconds measured.'
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> changeSession: aDebugSession [
 
 	debugActionModel clear; clearDebugSession.
@@ -61,7 +63,7 @@ StDebuggerActionModelTest >> changeSession: aDebugSession [
 	debugActionModel := StDebuggerActionModel on: session
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> emptyContextForMethod: aCompiledMethod [
 	^ (Context newForMethod: aCompiledMethod)
 		  initializeWith: nil
@@ -72,35 +74,35 @@ StDebuggerActionModelTest >> emptyContextForMethod: aCompiledMethod [
 		  yourself
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> evaluateMethodWithDeadHomeBlockContext [
 
 	self methodWithDeadBlockContext value
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> fileOutMethod: anObject [
 	result := anObject
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> method1: i [
 	^self method2: i+1
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> method2: i [
 	<haltOrBreakpointForTesting>
 	i = 9999 ifTrue: [ self halt. ^i ].
 	^self method1: i+1
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodClass [
 	^self
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodWithBlockContext [
 
 	| block |
@@ -108,18 +110,18 @@ StDebuggerActionModelTest >> methodWithBlockContext [
 	block value
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodWithDeadBlockContext [
 
 	^ [ (1+1 ) printString ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodWithPragma [
 	<debuggerCompleteToSender>
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> newSessionWithBlockContext [
 
 	| process method |
@@ -135,7 +137,7 @@ StDebuggerActionModelTest >> newSessionWithBlockContext [
 		debugActionModel stepInto: debugActionModel topContext ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> newSessionWithDeadHomeBlockContext [
 
 	| process method |
@@ -153,7 +155,7 @@ StDebuggerActionModelTest >> newSessionWithDeadHomeBlockContext [
 	]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> resetModifiedSourceCode [
 
 	methodWithBlockContextOriginalSource ifNotNil: [
@@ -162,18 +164,18 @@ StDebuggerActionModelTest >> resetModifiedSourceCode [
 		self class compile: setResultOriginalSourceCode ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> session [
 	^debugger session
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> setResult [
 	result := 2 squared.
 	^result
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelTest >> setSessionAndDebuggerModelForMethod: aMethod inContext: aContext [
 
 	| dummyActionModel |
@@ -188,7 +190,7 @@ StDebuggerActionModelTest >> setSessionAndDebuggerModelForMethod: aMethod inCont
 	shouldFilterStack := StDebuggerActionModel shouldFilterStack
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelTest >> setUp [
 
 	| method process |
@@ -202,7 +204,7 @@ StDebuggerActionModelTest >> setUp [
 		inContext: process suspendedContext
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelTest >> tearDown [
 	debugActionModel clear.
 	debugger ifNotNil: [ debugger clear].
@@ -219,7 +221,7 @@ StDebuggerActionModelTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testClearDebugSession [
 	| process |
 	process := session interruptedProcess.
@@ -229,7 +231,7 @@ StDebuggerActionModelTest >> testClearDebugSession [
 	self assert: session interruptedContext isNil
 ]
 
-{ #category : #'tests - contexts' }
+{ #category : 'tests - contexts' }
 StDebuggerActionModelTest >> testComputeInitialTopContext [
 
 	| newSession dummyActionModel |
@@ -257,7 +259,7 @@ StDebuggerActionModelTest >> testComputeInitialTopContext [
 		identicalTo: session interruptedContext
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testCopyStackToClipboard [
 	debugActionModel copyStackToClipboard.
 	self
@@ -267,17 +269,17 @@ StDebuggerActionModelTest >> testCopyStackToClipboard [
 				streamContents: [ :s | session interruptedContext shortDebugStackOn: s ])
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testCreateMissingMethod [
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testDefaultShouldFilterStack [
 
 	self assert: StDebuggerActionModel shouldFilterStack
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testDynamicShouldFilterStack [
 
 	| mockDebugActionModel |
@@ -296,7 +298,7 @@ StDebuggerActionModelTest >> testDynamicShouldFilterStack [
 		clearDebugSession
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testDynamicShouldFilterStackUpdate [
 
 	|mockDebugActionModel context|
@@ -346,7 +348,7 @@ StDebuggerActionModelTest >> testDynamicShouldFilterStackUpdate [
 	
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterClear [
 
 	| dummyActionModel dummyDebugger |
@@ -375,7 +377,7 @@ StDebuggerActionModelTest >> testEventAfterClear [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterMethodAdded [
 
 	| dummyActionModel dummyDebugger |
@@ -404,7 +406,7 @@ StDebuggerActionModelTest >> testEventAfterMethodAdded [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterProceed [
 
 	| ctx dummyDebugger |
@@ -429,7 +431,7 @@ StDebuggerActionModelTest >> testEventAfterProceed [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterRecompileMethod [
 
 	| ctx dummyDebugger |
@@ -465,7 +467,7 @@ StDebuggerActionModelTest >> testEventAfterRecompileMethod [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterRestart [
 
 	| ctx dummyDebugger |
@@ -494,7 +496,7 @@ StDebuggerActionModelTest >> testEventAfterRestart [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterStepInto [
 
 	| ctx dummyDebugger |
@@ -519,7 +521,7 @@ StDebuggerActionModelTest >> testEventAfterStepInto [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterStepOver [
 
 	| ctx dummyDebugger |
@@ -544,7 +546,7 @@ StDebuggerActionModelTest >> testEventAfterStepOver [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterStepThrough [
 
 	| ctx dummyDebugger |
@@ -569,7 +571,7 @@ StDebuggerActionModelTest >> testEventAfterStepThrough [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testExceptionProvidesSameExceptionAsTheSessionOne [
 
 	self
@@ -577,13 +579,13 @@ StDebuggerActionModelTest >> testExceptionProvidesSameExceptionAsTheSessionOne [
 		equals: debugActionModel session exception
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testFileOutMethod [
 	debugActionModel fileOutMethod: self.
 	self assert: result equals: self selector
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testFilterDNUStack [
 
 	|stack filteredStack dummyActionModel|
@@ -610,7 +612,7 @@ StDebuggerActionModelTest >> testFilterDNUStack [
 	
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testFilterMissingSubclassResponsibilityStack [
 
 	|stack filteredStack dummyActionModel|	
@@ -632,7 +634,7 @@ StDebuggerActionModelTest >> testFilterMissingSubclassResponsibilityStack [
 	self assert: filteredStack second identicalTo: stack fifth
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testFilterStack [
 
 	|stack filteredStack dummyActionModel|
@@ -660,7 +662,7 @@ StDebuggerActionModelTest >> testFilterStack [
 	self assert: filteredStack second identicalTo: stack third
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testImplementInClassForContext [
 	|method|
 	method := (StDebuggerUsingSpecSelectorMock lookupSelector: #method).
@@ -677,7 +679,7 @@ StDebuggerActionModelTest >> testImplementInClassForContext [
 	self assert: method methodClass identicalTo: StDebuggerUsingSpecSelectorMock
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testImplementMethodClassification [
 
 	| method |
@@ -716,7 +718,7 @@ StDebuggerActionModelTest >> testImplementMethodClassification [
 	self deny: method isClassified
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testInitialization [
 	self assert: debugActionModel session identicalTo: session.
 	self
@@ -724,13 +726,13 @@ StDebuggerActionModelTest >> testInitialization [
 		identicalTo: session interruptedContext
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testInterruptedContextProvidesSameContextAsTheSessionOne [
 
 	self assert: debugActionModel interruptedContext equals: debugActionModel session interruptedContext 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testInterruptedProcessProvidesSameProcessAsTheSessionOne [
 
 	self
@@ -738,7 +740,7 @@ StDebuggerActionModelTest >> testInterruptedProcessProvidesSameProcessAsTheSessi
 		equals: debugActionModel session interruptedProcess
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsContextAnAssertionFailure [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithFailingAssertionContext debuggerActionModel.
@@ -747,12 +749,12 @@ StDebuggerActionModelTest >> testIsContextAnAssertionFailure [
 	self assert: debugActionModel isContextAnAssertionFailure
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsContextSteppable [
 	self assert: debugActionModel isContextSteppable
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextAnAssertEqualsFailure [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithFailingAssertionContext debuggerActionModel.
@@ -763,13 +765,13 @@ StDebuggerActionModelTest >> testIsInterruptedContextAnAssertEqualsFailure [
 	self assert: debugActionModel isContextAnAssertionFailure
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextDead [
 	session interruptedContext pc: nil.
 	self assert: debugActionModel isInterruptedContextDead
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextDoesNotUnderstand [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithDNUContext debuggerActionModel.
@@ -780,7 +782,7 @@ StDebuggerActionModelTest >> testIsInterruptedContextDoesNotUnderstand [
 	self deny: debugActionModel isInterruptedContextDoesNotUnderstand
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextMissingClassException [
 	| dummyActionModel |
 	StTestDebuggerProvider compileMissingClassContextBuilder.
@@ -790,13 +792,13 @@ StDebuggerActionModelTest >> testIsInterruptedContextMissingClassException [
 	self assert: debugActionModel isInterruptedContextMissingClassException
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextPostMortem [
 	session resume.
 	self assert: debugActionModel isInterruptedContextPostMortem
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextSubclassResponsibilityException [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithMissingSubclassResponsibilityContext debuggerActionModel.
@@ -805,7 +807,7 @@ StDebuggerActionModelTest >> testIsInterruptedContextSubclassResponsibilityExcep
 	self assert: debugActionModel isInterruptedContextSubclassResponsibilityException
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testPeelToFirstLike [
 
 	| firstCaller dummyActionModel |
@@ -835,7 +837,7 @@ StDebuggerActionModelTest >> testPeelToFirstLike [
 	self assert: debugActionModel topContext identicalTo: firstCaller
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testProceedDebugSession [
 	self deny: session interruptedContext isNil.
 	self assert: result isNil.
@@ -844,7 +846,7 @@ StDebuggerActionModelTest >> testProceedDebugSession [
 	self assert: result equals: 4
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInBlockContext [
 
 	| contextChanged previousASTScope |
@@ -875,7 +877,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInBlockContext [
 		identicalTo: (self class >> #methodWithBlockContext) ast statements first value scope
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHome [
 
 	| contextChanged |
@@ -899,7 +901,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHome [
 	^ [ (1 + 1) printString ] yourself'
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHomeRemainsInOldBlock [
 
 	| contextChanged |
@@ -920,7 +922,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHomeRema
 	self assert: debugActionModel topContext equals: contextChanged
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInContextNotifyingUpdatesSourceCodeAndContext [
 
 	| oldStack contextChanged expectedNewStack rejectedFromOldStack |
@@ -953,7 +955,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInContextNotifyingUpdatesSourc
 	self assert: debugActionModel topContext identicalTo: contextChanged
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRestartContext [
 	|topContext topPC|
 	topContext := 
@@ -966,7 +968,7 @@ StDebuggerActionModelTest >> testRestartContext [
 	self assert: session interruptedContext pc equals: topPC
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testReturnValueFromExpressionFromContext [
 	session stepInto.
 	session stepInto.
@@ -976,7 +978,7 @@ StDebuggerActionModelTest >> testReturnValueFromExpressionFromContext [
 	self assert: result equals: 0
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRunToSelectionInContext [
 	|method node|
 	method := (self class >> #setResult).
@@ -986,7 +988,7 @@ StDebuggerActionModelTest >> testRunToSelectionInContext [
 	self assert: (method sourceNodeForPC: session interruptedContext pc) identicalTo: node
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testSelectedCodeRangeForContext [
 
 	| method node |
@@ -1010,13 +1012,13 @@ StDebuggerActionModelTest >> testSelectedCodeRangeForContext [
 		(session selectedCodeRangeForContext: session interruptedContext)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testSessionStackProvidesSameStackAsTheSessionOne [
 
 	self assert: debugActionModel stack equals: debugActionModel session stack
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testStackOfSizeWhenStackIsBigger [
 
 	| oldStack newStack |
@@ -1033,7 +1035,7 @@ StDebuggerActionModelTest >> testStackOfSizeWhenStackIsBigger [
 		(newStack collect: [ :obj | obj ] from: 2 to: oldStack size + 1)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testStackOfSizeWhenStackIsNotBigger [
 
 	| oldStack newStack |
@@ -1047,7 +1049,7 @@ StDebuggerActionModelTest >> testStackOfSizeWhenStackIsNotBigger [
 		equals: (newStack collect: [ :obj | obj ] from: 1 to: oldStack size)
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepInto [
 	|ctx|
 	ctx := session interruptedContext.
@@ -1057,7 +1059,7 @@ StDebuggerActionModelTest >> testStepInto [
 	self assert: session stack second identicalTo: ctx
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepIntoQuickMethods [
 	|ctx|
 	ctx := StMockContext new.
@@ -1073,7 +1075,7 @@ StDebuggerActionModelTest >> testStepIntoQuickMethods [
 	self assert: ctx stepIntoQuickMethodBooleans second equals: false
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepOver [
 	| method ctx |
 	method := self class >> #setResult.
@@ -1089,7 +1091,7 @@ StDebuggerActionModelTest >> testStepOver [
 		identicalTo: method ast statements second
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepThrough [
 	| method ctx |
 	method := self class >> #setResult.
@@ -1105,7 +1107,7 @@ StDebuggerActionModelTest >> testStepThrough [
 		identicalTo: method ast statements second
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testUpdateDebugSession [
 
 	| exception dummyActionModel |
@@ -1120,7 +1122,7 @@ StDebuggerActionModelTest >> testUpdateDebugSession [
 	self assert: session exception identicalTo: exception
 ]
 
-{ #category : #'tests - contexts' }
+{ #category : 'tests - contexts' }
 StDebuggerActionModelTest >> testUpdateTopContext [
 	
 	| dummyActionModel |
@@ -1135,7 +1137,7 @@ StDebuggerActionModelTest >> testUpdateTopContext [
 	
 ]
 
-{ #category : #'tests - contexts' }
+{ #category : 'tests - contexts' }
 StDebuggerActionModelTest >> testUpdateTopContextAfterSessionOperation [
 	|mockDebugActionModel context|
 	context := [  ] asContext.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st
index 57d61ea06..16325af8c 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerAssertionContextTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerAssertionContextTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugger'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerAssertionContextTest >> tearDown [
 	session ifNotNil:[session clear].
 	debugger ifNotNil: [ 
@@ -20,7 +22,7 @@ StDebuggerAssertionContextTest >> tearDown [
 	super tearDown 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerAssertionContextTest >> testFindFailedAssertionContextInSenderChain [
 
 	debugger := StTestDebuggerProvider new debuggerWithFailingAssertionContext.
@@ -35,7 +37,7 @@ StDebuggerAssertionContextTest >> testFindFailedAssertionContextInSenderChain [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerAssertionContextTest >> testFindFailedAssertionResultsInSenderChain [
 	| assertionResult|
 	debugger := StTestDebuggerProvider new debuggerWithFailingAssertionContext.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st
index 41230739c..2850e59f4 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st
@@ -1,17 +1,19 @@
 Class {
-	#name : #StDebuggerCodeCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerCodeCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerCodeCommandTreeBuilderTest >> newBuilder [
 	^ StDebuggerCodeCommandTreeBuilder
 		buildCommandsGroupWith: debugger
 		forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommands [
 	|codeCommandClasses|
 	codeCommandClasses := OrderedCollection new.
@@ -23,34 +25,34 @@ StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommandsDescription [
 	self assert: builder  codeDebugCommandsDescription equals: 'Execution control'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommandsGroupName [
 	self assert: builder  codeDebugCommandsGroupName equals: 'Execution'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeExecutionControlCommandsClasses [
 	self
 		assertCollection: builder codeExecutionControlCommandsClasses
 		equals: {StRunToSelectionCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testDisplayStrategy [
 	self assert: builder class displayStrategy equals: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder class groupDescription equals: 'Debug actions from code'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Code'
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st
index e16e44cda..b2ac601ae 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #StDebuggerCommandTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerCommandTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debuggerProvider'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerCommandTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 
@@ -15,7 +17,7 @@ StDebuggerCommandTest >> setUp [
 	debuggerProvider := StTestDebuggerProvider new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerCommandTest >> tearDown [
 	debuggerProvider terminate.
 	(StTestDebuggerProvider lookupSelector:
@@ -24,7 +26,7 @@ StDebuggerCommandTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInDNUContext [
 
 	| debugger |
@@ -58,14 +60,12 @@ StDebuggerCommandTest >> testCommandsInDNUContext [
 		(StFileOutMethodCommand forContext: debugger) canBeExecuted.
 	self assert:
 		(StPeelToFirstCommand forContext: debugger) canBeExecuted.
-	self assert:
-		(StShowFullStackCommand forContext: debugger) canBeExecuted.
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInDeadContext [
 
 	| debugger |
@@ -96,14 +96,12 @@ StDebuggerCommandTest >> testCommandsInDeadContext [
 		(StFileOutMethodCommand forContext: debugger) canBeExecuted.
 	self assert:
 		(StPeelToFirstCommand forContext: debugger) canBeExecuted.
-	self assert:
-		(StShowFullStackCommand forContext: debugger) canBeExecuted.
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInErrorContext [
 
 	| debugger |
@@ -136,14 +134,12 @@ StDebuggerCommandTest >> testCommandsInErrorContext [
 		(StFileOutMethodCommand forContext: debugger) canBeExecuted.
 	self assert:
 		(StPeelToFirstCommand forContext: debugger) canBeExecuted.
-	self assert:
-		(StShowFullStackCommand forContext: debugger) canBeExecuted.
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInFailingTestContext [
 
 	|debugger|
@@ -169,12 +165,11 @@ StDebuggerCommandTest >> testCommandsInFailingTestContext [
 	self assert: (StCopyStackToClipboardCommand forContext: debugger) canBeExecuted. 
 	self assert: (StFileOutMethodCommand forContext: debugger) canBeExecuted. 
 	self assert: (StPeelToFirstCommand forContext: debugger) canBeExecuted. 
-	self assert: (StShowFullStackCommand forContext: debugger) canBeExecuted.	
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInMissingClassContext [
 	"When a class is missing, it is possible we are trying to send it a message.
 	Define new class and define new method must be possible. "	
@@ -203,12 +198,11 @@ StDebuggerCommandTest >> testCommandsInMissingClassContext [
 	self assert: (StCopyStackToClipboardCommand forContext: debugger) canBeExecuted. 
 	self assert: (StFileOutMethodCommand forContext: debugger) canBeExecuted. 
 	self assert: (StPeelToFirstCommand forContext: debugger) canBeExecuted. 
-	self assert: (StShowFullStackCommand forContext: debugger) canBeExecuted.	
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInMissingSubclassResponsibilityContext [
 
 	| debugger |
@@ -242,14 +236,12 @@ StDebuggerCommandTest >> testCommandsInMissingSubclassResponsibilityContext [
 		(StFileOutMethodCommand forContext: debugger) canBeExecuted.
 	self assert:
 		(StPeelToFirstCommand forContext: debugger) canBeExecuted.
-	self assert:
-		(StShowFullStackCommand forContext: debugger) canBeExecuted.
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInRunnableContext [
 
 	|debugger|
@@ -274,13 +266,12 @@ StDebuggerCommandTest >> testCommandsInRunnableContext [
 	self assert: (StCopyStackToClipboardCommand forContext: debugger) canBeExecuted. 
 	self assert: (StFileOutMethodCommand forContext: debugger) canBeExecuted. 
 	self assert: (StPeelToFirstCommand forContext: debugger) canBeExecuted. 
-	self assert: (StShowFullStackCommand forContext: debugger) canBeExecuted.
 	self assert: (StProceedCommand forContext: debugger) canBeExecuted.  	 
 	self assert: (StWhereIsCommand forContext: debugger) canBeExecuted.
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStCopyStackToClipboardCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -291,7 +282,7 @@ StDebuggerCommandTest >> testStCopyStackToClipboardCommandExecution [
 	self assert: debugger tag equals: #copyStackToClipboard
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineClassCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -302,7 +293,7 @@ StDebuggerCommandTest >> testStDefineClassCommandExecution [
 	self assert: debugger tag equals: #createMissingClass
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineMethodCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -313,7 +304,7 @@ StDebuggerCommandTest >> testStDefineMethodCommandExecution [
 	self assert: debugger tag equals: #createMissingMethod
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineMissingEntityCommandExecution [
 
 	| debugger command oldActionModel |
@@ -350,7 +341,7 @@ StDebuggerCommandTest >> testStDefineMissingEntityCommandExecution [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineSubclassResponsabilityCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -361,7 +352,7 @@ StDebuggerCommandTest >> testStDefineSubclassResponsabilityCommandExecution [
 	self assert: debugger tag equals: #createSubclassResponsibility
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStFileOutMethodCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -372,7 +363,7 @@ StDebuggerCommandTest >> testStFileOutMethodCommandExecution [
 	self assert: debugger tag equals: #fileOutSelectedContext
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStPeelToFirstCommandExecution [
 	
 	|debugger command|
@@ -383,7 +374,7 @@ StDebuggerCommandTest >> testStPeelToFirstCommandExecution [
 	self assert: debugger tag equals: #peelToFirstLike:
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStProceedCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -394,7 +385,7 @@ StDebuggerCommandTest >> testStProceedCommandExecution [
 	self assert: debugger tag equals: #proceedDebugSession
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStRestartCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -405,7 +396,7 @@ StDebuggerCommandTest >> testStRestartCommandExecution [
 	self assert: debugger tag equals: #restartCurrentContext
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStReturnValueCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -416,7 +407,7 @@ StDebuggerCommandTest >> testStReturnValueCommandExecution [
 	self assert: debugger tag equals: #returnEnteredValue
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStRunToSelectionCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -427,18 +418,7 @@ StDebuggerCommandTest >> testStRunToSelectionCommandExecution [
 	self assert: debugger tag equals: #runToSelection
 ]
 
-{ #category : #'tests - execution' }
-StDebuggerCommandTest >> testStShowFullStackCommandExecution [
-	"Generated 5 June 2020"
-	|debugger command|
-	debugger := StDummyDebuggerPresenter new.
-	command := StShowFullStackCommand forContext: debugger.
-	"StShowFullStackCommand command calls the #showFullStack action interface of the debugger object"
-	command execute.
-	self assert: debugger tag equals: #showFullStack
-]
-
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStStepIntoCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -449,7 +429,7 @@ StDebuggerCommandTest >> testStStepIntoCommandExecution [
 	self assert: debugger tag equals: #stepInto
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStStepOverCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -460,7 +440,7 @@ StDebuggerCommandTest >> testStStepOverCommandExecution [
 	self assert: debugger tag equals: #stepOver
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStStepThroughCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -471,7 +451,7 @@ StDebuggerCommandTest >> testStStepThroughCommandExecution [
 	self assert: debugger tag equals: #stepThrough
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStWhereIsCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
diff --git a/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st
index 7ccc3bd82..75a73593d 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #StDebuggerCommandTreeBuilderTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerCommandTreeBuilderTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'builder'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerCommandTreeBuilderTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 	
@@ -15,12 +17,12 @@ StDebuggerCommandTreeBuilderTest >> setUp [
 	builder := StDebuggerMockCommandTreeBuilder new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testDisplayStrategy [
 	self assert: builder displayStrategy class equals: builder class displayStrategy
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroup [
 	|rootGroup|
 	rootGroup := (CmCommandGroup named: 'root') asSpecGroup.
@@ -30,7 +32,7 @@ StDebuggerCommandTreeBuilderTest >> testGroup [
 	self assert: builder group description equals: builder class groupDescription
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroupBuilding [
 	|rootGroup|
 	rootGroup := (CmCommandGroup named: 'root') asSpecGroup.
@@ -44,12 +46,12 @@ StDebuggerCommandTreeBuilderTest >> testGroupBuilding [
 	self deny: rootGroup groups first isRoot
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder groupDescription equals: builder class groupDescription
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroupName [
 	self assert: builder groupName equals: builder class groupName
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st
index 1a49b9d1f..1457316df 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StDebuggerConfigurationCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerConfigurationCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerConfigurationCommandTreeBuilderTest >> newBuilder [
 
 	^ StDebuggerConfigurationCommandTreeBuilder
@@ -12,7 +14,7 @@ StDebuggerConfigurationCommandTreeBuilderTest >> newBuilder [
 		  forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommands [
 	self
 		assertCommandGroup: builder generalConfigurationCommandsGroup
@@ -21,7 +23,7 @@ StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommands [
 		displayStrategy: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommandsClasses [
 
 	self assertCollection: builder configurationCommandClasses equals: {
@@ -29,19 +31,19 @@ StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommandsClasse
 			StDebuggerSettingsCommand }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testDisplayStrategy [
 	self
 		assert: builder class displayStrategy
 		equals: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder class groupDescription equals: 'Debugger configuration actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Debugger configuration'
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st
index ba66fb6e2..c98bd0458 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerContextInteractionModelTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerContextInteractionModelTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'instanceVariableForTest',
 		'model'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextInteractionModelTest >> helperMethodForBindings [
 
 	| tempVariableForTest |
@@ -17,7 +19,7 @@ StDebuggerContextInteractionModelTest >> helperMethodForBindings [
 	^ 44
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerContextInteractionModelTest >> setUp [
 
 	| context |
@@ -31,7 +33,7 @@ StDebuggerContextInteractionModelTest >> setUp [
 	"Put here a common initialization logic for tests"
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testAddBinding [
 
 	self assert: (model bindingOf: 'tata') equals: nil.
@@ -43,7 +45,7 @@ StDebuggerContextInteractionModelTest >> testAddBinding [
 		equals: 'titi'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testAddBindingDeletesOldBindingIfSameKey [
 
 	self
@@ -57,7 +59,7 @@ StDebuggerContextInteractionModelTest >> testAddBindingDeletesOldBindingIfSameKe
 		equals: 42
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testBindingOf [
 
 	"These are values given in the setUp method and in the helper method"
@@ -93,7 +95,7 @@ StDebuggerContextInteractionModelTest >> testBindingOf [
 		equals: 41
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testBindingOfPrioritizesContextBindingsToInteractionModelBindings [
 
 	"These are values given in the setUp method and in the helper method"
@@ -121,7 +123,7 @@ StDebuggerContextInteractionModelTest >> testBindingOfPrioritizesContextBindings
 		equals: 42.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testCompile [
 
 	| result |
@@ -151,7 +153,7 @@ StDebuggerContextInteractionModelTest >> testCompile [
 	self assert: result equals: 53
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasBindingsInContextOf [
 
 	self
@@ -161,7 +163,7 @@ StDebuggerContextInteractionModelTest >> testHasBindingsInContextOf [
 		assert: (model hasBindingInContextOf: 'tata') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasBindingsInInteractionModelOf [
 
 	self
@@ -174,7 +176,7 @@ StDebuggerContextInteractionModelTest >> testHasBindingsInInteractionModelOf [
 		assert: (model hasBindingInInteractionModelOf: 'tata') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasBindingsReturnsTrueWhenVariableIsInContextOrInInteractionModel [
 
 	self
@@ -184,7 +186,7 @@ StDebuggerContextInteractionModelTest >> testHasBindingsReturnsTrueWhenVariableI
 		assert: (model hasBindingOf: 'tata') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasUnsavedCodeChanges [
 
 	| code |
@@ -198,7 +200,7 @@ StDebuggerContextInteractionModelTest >> testHasUnsavedCodeChanges [
 	self assert: model hasUnsavedCodeChanges
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testInteractionModelArePreservedAfterChangingContext [
 
 	self
@@ -214,7 +216,7 @@ StDebuggerContextInteractionModelTest >> testInteractionModelArePreservedAfterCh
 	self assert: (model hasBindingOf: 'tempVariableForTest') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testNilContextModel [
 
 	self deny:
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
index e36a8ec4c..c8d498a52 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
@@ -1,26 +1,28 @@
 Class {
-	#name : #StDebuggerContextPredicateTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerContextPredicateTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'predicate',
 		'context'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerContextPredicateTest >> setUp [
 	super setUp.
 	context := [  ] asContext.
 	predicate := (StDebuggerContextPredicate context: context)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testContext [
 	self assert: predicate context identicalTo: context
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testIsContextDead [
 	
 	self deny: predicate isContextDead.
@@ -28,7 +30,7 @@ StDebuggerContextPredicateTest >> testIsContextDead [
 	self assert: predicate isContextDead
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testIsSteppable [
 
 	self assert: predicate isSteppable.
@@ -42,13 +44,13 @@ StDebuggerContextPredicateTest >> testIsSteppable [
 	self deny: predicate isSteppable
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testPrintDescription [
 	self skip.
 	self assert: predicate printDescription equals: '0'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testPrintHaltDescription [
 	|haltContext|
 	haltContext := (StTestDebuggerProvider new debuggerWithRunnableContext) interruptedContext.
@@ -56,7 +58,7 @@ StDebuggerContextPredicateTest >> testPrintHaltDescription [
 	self assert: predicate printDescription equals: 'Halt in ', haltContext printString
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testPrintPostMortemDescription [
 	self skip.
 	predicate postMortem: true.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st
index 4d46ec001..adaf89580 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerContextTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerContextTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debuggerContext',
 		'hostObject'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextTest >> contextWithArgs [
 
 	"Creates and returns a context in which we step until we enter a method with temporary variables, then step two times over the assignement of the first temp"
@@ -23,7 +25,7 @@ StDebuggerContextTest >> contextWithArgs [
 	^ context
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextTest >> contextWithArgsInBlock [
 
 	"Creates and returns a context in which we step until we enter a method with arguments in a block, then step 4 times until we're in the block"
@@ -38,7 +40,7 @@ StDebuggerContextTest >> contextWithArgsInBlock [
 	^ context
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextTest >> contextWithTemps [
 
 	"Creates and returns a context in which we step until we enter a method with temporary variables, then step two times over the assignement of the first temp"
@@ -53,7 +55,7 @@ StDebuggerContextTest >> contextWithTemps [
 	^ context
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerContextTest >> setUp [
 	super setUp.
 	
@@ -61,7 +63,7 @@ StDebuggerContextTest >> setUp [
 	hostObject := StDebuggerObjectForTests new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testArgumentsNodes [
 	|nodes| 
 	debuggerContext context: self contextWithArgs.
@@ -78,7 +80,7 @@ StDebuggerContextTest >> testArgumentsNodes [
 	self deny: (nodes anySatisfy: [:n| n key = 'self'])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testArgumentsNodesInBlock [
 	|nodes|
 	debuggerContext context: self contextWithArgsInBlock.
@@ -93,7 +95,7 @@ StDebuggerContextTest >> testArgumentsNodesInBlock [
 	self deny: (nodes anySatisfy: [:n| n key = 'self'])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testBuildInspectorNodes [
 	|nodes nodesNames|
 	debuggerContext context: self contextWithArgs.
@@ -119,7 +121,7 @@ StDebuggerContextTest >> testBuildInspectorNodes [
 	self assert: nodesNames size equals: 8
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testBuildInspectorNodesForException [
 	| nodes object exception |
 	<ignoreNotImplementedSelectors: #(toto)>
@@ -137,7 +139,7 @@ StDebuggerContextTest >> testBuildInspectorNodesForException [
 	self assert: (nodes last) rawValue identicalTo: object
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testContext [
 
 	| closure contextSource ctx |
@@ -151,7 +153,7 @@ StDebuggerContextTest >> testContext [
 	self assert: debuggerContext context identicalTo: ctx
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testExceptionNodes [
 
 	| nodes object exception |
@@ -176,7 +178,7 @@ StDebuggerContextTest >> testExceptionNodes [
 	self assert: nodes first variableTag equals: 'implicit'.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testNoDuplicatesBetweenArgsAndTemps [
 	|nodes nodesNamesArray nodesNamesSet|
 	debuggerContext context: self contextWithArgs.
@@ -186,13 +188,13 @@ StDebuggerContextTest >> testNoDuplicatesBetweenArgsAndTemps [
 	self assertCollection: nodesNamesArray equals: nodesNamesSet
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testNullExceptionNodes [
 
 	self assertEmpty: debuggerContext exceptionNodes
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testReceiverNodes [
 
 	| nodes |
@@ -203,7 +205,7 @@ StDebuggerContextTest >> testReceiverNodes [
 	self assert: nodes first rawValue equals: hostObject instVar
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testSelfNodes [
 
 	| node |
@@ -213,7 +215,7 @@ StDebuggerContextTest >> testSelfNodes [
 	self assert: node rawValue identicalTo: hostObject.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testStackTopNode [	
 	| node|
 	"We step once on the context to be on the value part of the next assignment"
@@ -223,7 +225,7 @@ StDebuggerContextTest >> testStackTopNode [
 	self assert: node rawValue equals: 0
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testTemporaryVariablesNodes [
 	|nodes|	
 	debuggerContext context: self contextWithTemps.
@@ -240,7 +242,7 @@ StDebuggerContextTest >> testTemporaryVariablesNodes [
 	self deny: (nodes anySatisfy: [:n| n key = 'self'])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testThisContextNode [
 	|ctx node|
 	ctx := self contextWithTemps.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st b/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st
index e48f84fce..a432e67a5 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #StDebuggerErrorContextPredicate }
+Extension { #name : 'StDebuggerErrorContextPredicate' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerErrorContextPredicate >> exception [
 
 	^ exception
diff --git a/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st b/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st
index 38fd3278b..d4421af13 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st
@@ -3,12 +3,14 @@ I just provide helper methods to generate and remove classes that use the `TStDe
 These classes are used exclusively in tests, and should be part of the system (remove them in your `tearDown`).
 "
 Class {
-	#name : #StDebuggerExtensionGeneratorForTests,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StDebuggerExtensionGeneratorForTests',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionGeneratorForTests class >> generateTestClass [
 
 	self classInstaller make: [ :builder |
@@ -23,7 +25,7 @@ StDebuggerExtensionGeneratorForTests class >> generateTestClass [
 	self testClass compile: 'debuggerExtensionToolName ^ ''TStDebuggerExtensionTestClass'''.
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionGeneratorForTests class >> removeTestClass [
 
 	Smalltalk
@@ -31,7 +33,7 @@ StDebuggerExtensionGeneratorForTests class >> removeTestClass [
 		ifPresent: [ :class | class removeFromSystem ]
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionGeneratorForTests class >> testClass [
 
 	^ Smalltalk at: #TStDebuggerExtensionTestClass
diff --git a/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st
index c12ddae80..f7dc4107d 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st
@@ -1,24 +1,26 @@
 Class {
-	#name : #StDebuggerExtensionMechanismTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerExtensionMechanismTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debugger',
 		'oldActivatedExtensions'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionMechanismTest >> debugger [
 	^ debugger ifNil: [ debugger := self debuggerClass basicNew ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionMechanismTest >> debuggerClass [
 	^ StDebugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerExtensionMechanismTest >> disableTStDebuggerExtensionTestClassAsExtension [
 
 	TStDebuggerExtensionTestClass class compile: 'isOnlyForTests
@@ -26,7 +28,7 @@ StDebuggerExtensionMechanismTest >> disableTStDebuggerExtensionTestClassAsExtens
 	^ true'
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerExtensionMechanismTest >> enableTStDebuggerExtensionTestClassAsExtension [
 
 	TStDebuggerExtensionTestClass class compile: 'isOnlyForTests
@@ -34,7 +36,7 @@ StDebuggerExtensionMechanismTest >> enableTStDebuggerExtensionTestClassAsExtensi
 	^ false'
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionMechanismTest >> setUp [
 
 	super setUp.
@@ -42,7 +44,7 @@ StDebuggerExtensionMechanismTest >> setUp [
 	StDummyDebuggerPresenter showInDebugger: false
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionMechanismTest >> tearDown [
 
 	| allDebuggerExtensions testClass |
@@ -59,7 +61,7 @@ StDebuggerExtensionMechanismTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerExtensionMechanismTest >> testDynamicLayoutWithAndWithoutExtension [
 
 	| dbg toolPage session |
@@ -103,7 +105,7 @@ StDebuggerExtensionMechanismTest >> testDynamicLayoutWithAndWithoutExtension [
 	self denyCollection: dbg stackAndCodeContainer children includesAny: {#extensionToolsNotebook }
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testExtensionToolsClasses [
 
 	self
@@ -112,7 +114,7 @@ StDebuggerExtensionMechanismTest >> testExtensionToolsClasses [
 				 extension isOnlyForTests ])
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testHasAnyActivatedExtensions [
 
 	| testClass |
@@ -124,7 +126,7 @@ StDebuggerExtensionMechanismTest >> testHasAnyActivatedExtensions [
 		(self debuggerClass hasAnyActivatedExtension: { testClass })
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testInstantiateExtensionToolsPage [
 	|dbg toolPage|
 	dbg := self debugger.
@@ -137,7 +139,7 @@ StDebuggerExtensionMechanismTest >> testInstantiateExtensionToolsPage [
 	 
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testRegisterExtensionTool [
 	|dbg object|
 	dbg := self debugger.
@@ -147,7 +149,7 @@ StDebuggerExtensionMechanismTest >> testRegisterExtensionTool [
 	self assertCollection: dbg extensionTools equals: { object } asOrderedCollection 
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testUsesExtensions [
 
 	| testClass extensionClasses activatedExtension |
diff --git a/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st b/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st
index 065f2ed69..a3796e189 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st
@@ -1,19 +1,21 @@
 Class {
-	#name : #StDebuggerExtensionTestListener,
-	#superclass : #Object,
+	#name : 'StDebuggerExtensionTestListener',
+	#superclass : 'Object',
 	#instVars : [
 		'tag'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionTestListener >> tag [
 
 	^ tag
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionTestListener >> tag: anObject [
 
 	tag := anObject
diff --git a/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st
index df69a866f..cda0edadd 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st
@@ -1,22 +1,24 @@
 Class {
-	#name : #StDebuggerInspectorTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerInspectorTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'inspector',
 		'session',
 		'debugger'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerInspectorTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 	super setUp.
 	inspector := StDebuggerInspector new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerInspectorTest >> tearDown [
 
 	session ifNotNil: [ session clear ].
@@ -30,18 +32,18 @@ StDebuggerInspectorTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testDefaultLayoutSpec [
 	
 	self assert: inspector currentLayoutSelector equals: inspector defaultLayoutSelector
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testMaximizeAssertionSpec [
 	self deny: StDebuggerInspector maximizeAssertionSpec
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testMaximizedAssertionLayoutSpec [
 	|inspectorLayout|
 	
@@ -52,7 +54,7 @@ StDebuggerInspectorTest >> testMaximizedAssertionLayoutSpec [
 	self assert: inspectorLayout children first class identicalTo: SpBoxLayout 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testMinimizedAssertionLayoutSpec [
 	|inspectorLayout|
 	
@@ -64,7 +66,7 @@ StDebuggerInspectorTest >> testMinimizedAssertionLayoutSpec [
 	self assert: inspectorLayout children second equals: #inspector
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testSetAssertionLayoutSpec [
 	|inspectorLayout expectedLayout|
 	inspector setAssertionLayout. 
@@ -79,7 +81,7 @@ StDebuggerInspectorTest >> testSetAssertionLayoutSpec [
 	self assert: inspectorLayout class identicalTo: expectedLayout class
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testSetDefaultLayoutSpec [
 
 	| inspectorLayout expectedLayout |
@@ -98,7 +100,7 @@ StDebuggerInspectorTest >> testSetDefaultLayoutSpec [
 	self assert: inspectorLayout class identicalTo: expectedLayout class
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testShouldUpdateContext [
 
 	debugger := StTestDebuggerProvider new
@@ -112,7 +114,7 @@ StDebuggerInspectorTest >> testShouldUpdateContext [
 			 with: session interruptedContext)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testToggleMaximizeAssertionSpec [
 
 	|oldFlag|
@@ -121,7 +123,7 @@ StDebuggerInspectorTest >> testToggleMaximizeAssertionSpec [
 	self assert: StDebuggerInspector maximizeAssertionSpec equals: oldFlag not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testUpdateLayoutForContextsWithAssertionFailure [
 
 	| assertionFailure |
@@ -146,7 +148,7 @@ StDebuggerInspectorTest >> testUpdateLayoutForContextsWithAssertionFailure [
 		((session interruptedContext tempNamed: #aStringOrBlock) at: 1)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testUpdateLayoutForContextsWithShouldntRaiseFailure [
 	| assertionFailure |
 	debugger := StTestDebuggerProvider new debuggerWithFailingShouldntRaiseContext.
@@ -161,7 +163,7 @@ StDebuggerInspectorTest >> testUpdateLayoutForContextsWithShouldntRaiseFailure [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testUpdateLayoutForContextsWithoutAssertionFailure [
 
 	debugger := StTestDebuggerProvider new
diff --git a/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st b/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st
index 0428f4864..dc67ee594 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st
@@ -2,27 +2,29 @@
 Debugger command tree builder mock to test general behavior outside of a debugger
 "
 Class {
-	#name : #StDebuggerMockCommandTreeBuilder,
-	#superclass : #StDebuggerCommandTreeBuilder,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StDebuggerMockCommandTreeBuilder',
+	#superclass : 'StDebuggerCommandTreeBuilder',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerMockCommandTreeBuilder class >> displayStrategy [
 	^CmUIDisplayAsSubMenu
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerMockCommandTreeBuilder class >> groupDescription [
 	^'mock group'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerMockCommandTreeBuilder class >> groupName [
 	^'mock'
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerMockCommandTreeBuilder >> buildDebuggerCommandGroup [
 	
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st b/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st
index 8f78bcda6..da9c797d7 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st
@@ -2,29 +2,31 @@
 I am a dummy object to test StDebuggerContext inspector nodes building.
 "
 Class {
-	#name : #StDebuggerObjectForTests,
-	#superclass : #Object,
+	#name : 'StDebuggerObjectForTests',
+	#superclass : 'Object',
 	#instVars : [
 		'instVar'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #util }
+{ #category : 'util' }
 StDebuggerObjectForTests >> haltingMethod [ <haltOrBreakpointForTesting> self halt. ^self
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerObjectForTests >> initialize [ 
 	instVar := 0
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerObjectForTests >> instVar [
 	^ instVar
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebuggerObjectForTests >> methodWithArg1: i arg2: j [
 	|a b|
 	a := i.
@@ -32,12 +34,12 @@ StDebuggerObjectForTests >> methodWithArg1: i arg2: j [
 	^a + b
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebuggerObjectForTests >> methodWithArgsInBlock [
 	^[ :a :b| a + b ] value: 4 value: 2
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebuggerObjectForTests >> methodWithTemps [
 	|a b|
 	a := 0.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st
index 1aace7e34..b484bcc70 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StDebuggerRawObjectInspectorTest,
-	#superclass : #TestCase,
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#name : 'StDebuggerRawObjectInspectorTest',
+	#superclass : 'TestCase',
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerRawObjectInspectorTest >> testSelectedObject [
 
 	| context debuggerContext inspector |
diff --git a/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
index ce810bd59..e05b43f31 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
@@ -1,29 +1,31 @@
 Class {
-	#name : #StDebuggerStackCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerStackCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerStackCommandTreeBuilderTest >> newBuilder [
 	^ StDebuggerStackCommandTreeBuilder
 		buildCommandsGroupWith: debugger
 		forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testBrowseGroupDescription [
 	self
 		assert: builder browseGroupDescription
 		equals: 'Navigate the system from the stack'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testBrowseGroupName [
 	self assert: builder browseGroupName equals: 'Browse'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testCommandGroupStructure [
 	|stackGroup|
 	stackGroup := rootGroup groups first.	
@@ -38,26 +40,26 @@ StDebuggerStackCommandTreeBuilderTest >> testCommandGroupStructure [
 	self assert: stackGroup groups fourth description equals: builder stackContextMenuActionsDescription.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testDisplayStrategy [
 	self
 		assert: builder class displayStrategy
 		equals: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testGroupDescription [
 	self
 		assert: builder class groupDescription
 		equals: 'Actions on the debugger stack.'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Stack'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testNavigationCommandForContext [
 
 	| cmd |
@@ -68,14 +70,14 @@ StDebuggerStackCommandTreeBuilderTest >> testNavigationCommandForContext [
 	self assert: cmd context identicalTo: debugger
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackActionsCommandsClasses [
 	self
 		assertCollection: builder stackActionsCommandsClasses
 		equals: {StReturnValueCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsCommands [
 	self
 		assertCommandGroup: builder stackContextMenuActionsCommands
@@ -84,21 +86,21 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsDescription [
 	self
 		assert: builder stackContextMenuActionsDescription
 		equals: 'Actions on the selected context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsGroupName [
 	self
 		assert: builder stackContextMenuActionsGroupName
 		equals: 'Context Actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuBrowseCommands [
 	|cmdGroup cmdEntries expectedEntries|	
 
@@ -128,7 +130,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuBrowseCommands [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationCommands [
 	|  cmdGroup cmdEntries |
 	
@@ -155,21 +157,21 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationCommands
 		haveContext: debugger 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationDescription [
 	self
 		assert: builder stackContextMenuExplorationDescription
 		equals: 'Explore the receiver object''s graph'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationGroupName [
 	self
 		assert: builder stackContextMenuExplorationGroupName
 		equals: 'Explore'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuStackEditionsCommands [
 	self
 		assertCommandGroup: builder stackContextMenuStackEditionsCommands
@@ -178,7 +180,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuStackEditionsComman
 		displayStrategy: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationCommands [
 	| cmdGroup commands |
 
@@ -200,25 +202,24 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationCommands [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationGroupName [
 	self
 		assert: builder stackContextNavigationGroupName
 		equals: 'Receiver class code navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackEditionCommandsClasses [
 	self
 		assertCollection: builder stackEditionCommandsClasses
 		equals:
 			{StCopyStackToClipboardCommand.
-			StShowFullStackCommand.
 			StPeelToFirstCommand.
 			StFileOutMethodCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackExplorationCommandsClasses [
 	self
 		assertCollection: builder stackExplorationCommandsClasses
@@ -229,17 +230,17 @@ StDebuggerStackCommandTreeBuilderTest >> testStackExplorationCommandsClasses [
 				yourself)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackGroupDescription [
 	self assert: builder stackGroupDescription equals: 'Stack edition'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackGroupName [
 	self assert: builder stackGroupName equals: 'Stack'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodCommandsClasses [
 	self
 		assertCollection: builder stackMethodCommandsClasses
@@ -248,7 +249,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodCommandsClasses [
 			SpBrowseMethodVersionsCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodNavigationCommands [
 	self
 		assertCommandGroup: builder stackMethodNavigationCommands
@@ -257,14 +258,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodNavigationCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodNavigationGroupName [
 	self
 		assertCollection: builder stackMethodNavigationGroupName
 		equals: 'Selected method navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorCommandsClasses [
 	self
 		assertCollection: builder stackMethodSelectorCommandsClasses
@@ -274,7 +275,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorCommandsClasses
 			SpBrowseMethodReferencesCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorNavigationCommands [
 	self
 		assertCommandGroup: builder stackMethodSelectorNavigationCommands
@@ -283,14 +284,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorNavigationComman
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorNavigationGroupName [
 	self
 		assert: builder stackMethodSelectorNavigationGroupName
 		equals: 'Selected method''s selector navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassExplorationCommandsClasses [
 	self
 		assertCollection: builder stackReceiverClassExplorationCommandsClasses
@@ -299,7 +300,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassExplorationComman
 			SpBrowseSubInstancesCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassNavigationCommands [
 	self
 		assertCommandGroup: builder stackReceiverClassNavigationCommands
@@ -308,14 +309,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassNavigationCommand
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassNavigationGroupName [
 	self
 		assert: builder stackReceiverClassNavigationGroupName
 		equals: 'Receiver class navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverCommandsClasses [
 	self
 		assertCollection: builder stackReceiverCommandsClasses
@@ -327,7 +328,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackReceiverCommandsClasses [
 			SpBrowseInstVarRefsCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverExplorationCommandsClasses [
 	self
 		assertCollection: builder stackReceiverExplorationCommandsClasses
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
index 7f8762727..e72b9ba43 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : #StDebuggerTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugger',
@@ -9,20 +9,22 @@ Class {
 		'stackSizeBefore',
 		'shouldFilterStack'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> debugger [
 	^ debugger ifNil: [ debugger := self debuggerClass basicNew ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> debuggerClass [
 	^ StDebugger
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> debuggerOn: aDebugSession [
 
 	^ self debugger
@@ -32,14 +34,14 @@ StDebuggerTest >> debuggerOn: aDebugSession [
 		  yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> executionControlCommandFrom: aDebugger [
 
 	^ debugger toolbar leftItems select: [ :p | 
 		  #( 'Proceed' 'Into' 'Over' 'Through' ) includes: p label ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> initializedDebugger [
 
 	dbg := self debugger.
@@ -49,14 +51,14 @@ StDebuggerTest >> initializedDebugger [
 	^ dbg
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> inspectorTableFor: inspector [
 	|contextInspector|
 	contextInspector := (inspector class slotNamed: #contextInspector) read: inspector.
 	^(contextInspector class slotNamed: #attributeTable) read: contextInspector
 ]
 
-{ #category : #'tests - accepting faulty code' }
+{ #category : 'tests - accepting faulty code' }
 StDebuggerTest >> replaceMethodWithQuickMethodStepping [
 
 	"True is a good default value. We step into always by default"
@@ -82,7 +84,7 @@ StDebuggerTest >> replaceMethodWithQuickMethodStepping [
 	dbg debuggerActionModel updateIfAble 
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerTest >> setUp [	
 	super setUp.	
 	session := StTestDebuggerProvider new sessionForDebuggerTests.
@@ -91,7 +93,7 @@ StDebuggerTest >> setUp [
 	self debuggerClass fastTDD: true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> subscriptionsForStDebuggerExtensionActivationToggle [
 
 	| subscriptions |
@@ -101,7 +103,7 @@ StDebuggerTest >> subscriptionsForStDebuggerExtensionActivationToggle [
 		  s announcementClass = StDebuggerExtensionActivationToggle ]
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerTest >> tearDown [
 
 	session clear.
@@ -126,7 +128,7 @@ StDebuggerTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testAcceptCodeChangesForContext [
 	| context newSource |
 	
@@ -146,7 +148,7 @@ StDebuggerTest >> testAcceptCodeChangesForContext [
 	self assert: dbg code text equals: newSource
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testActionModelSubscription [
 
 	self assert: self debugger debuggerActionModel isNil.
@@ -163,7 +165,7 @@ StDebuggerTest >> testActionModelSubscription [
 		(debugger debuggerActionModel hasSubscriber: debugger)
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCancelCodeChangesFor [
 	| firstContext lastContext |
 	dbg := self debuggerOn: session.
@@ -184,7 +186,7 @@ StDebuggerTest >> testCancelCodeChangesFor [
 	
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testClearUnsavedChanges [
 
 	dbg := self debuggerOn: session.
@@ -193,7 +195,7 @@ StDebuggerTest >> testClearUnsavedChanges [
 	self assertEmpty: dbg unsavedCodeChanges
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testClose [
 
 	| windowPresenter actionModel |
@@ -212,7 +214,7 @@ StDebuggerTest >> testClose [
 		(actionModel hasSubscriber: debugger)
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCodeChangeAfterContextChange [
 	| firstContext lastContext |
 	dbg := self debuggerOn: session.
@@ -230,7 +232,7 @@ StDebuggerTest >> testCodeChangeAfterContextChange [
 	self should: [ dbg unsavedCodeChangesFor:  lastContext] raise: KeyNotFound
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCodeSelectionAfterRestart [
 	| adapter segments highlightSegment pcRangeForContext |
 	
@@ -255,7 +257,7 @@ StDebuggerTest >> testCodeSelectionAfterRestart [
 	"The pc range is highlighted with an additionnal index to encompass the full text of the node (why?)"
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCodeSelectionAfterStepping [
 	| adapter segments highlightSegment pcRangeForContext |
 	
@@ -279,7 +281,7 @@ StDebuggerTest >> testCodeSelectionAfterStepping [
 	"The pc range is highlighted with an additionnal index to encompass the full text of the node (why?)"
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextChangedAfterStepIn [ 
 
 	dbg := self debuggerOn: session.
@@ -293,7 +295,7 @@ StDebuggerTest >> testContextChangedAfterStepIn [
 
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextChangedAfterStepOverAndReturn [
 	| currentContext |
 	dbg := self debuggerOn: session.	
@@ -306,7 +308,7 @@ StDebuggerTest >> testContextChangedAfterStepOverAndReturn [
 		equals: currentContext
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextTempVarList [
 	| contextItems inspectorTable |
 	
@@ -336,7 +338,7 @@ StDebuggerTest >> testContextTempVarList [
 	self assert: contextItems last rawValue identicalTo: dbg currentContext
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testContextTempVarListUpdatesAfterRestartingContext [
 
 	| contextItems inspectorTable newContextItems |
@@ -364,7 +366,7 @@ StDebuggerTest >> testContextTempVarListUpdatesAfterRestartingContext [
 			identicalTo: (contextItems at: i) ]
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextTempVarListUpdatesTempsWhenEnteringOrLeavingInlinedBlocks [
 
 	| contextItems inspectorTable newContextItems |
@@ -403,7 +405,7 @@ StDebuggerTest >> testContextTempVarListUpdatesTempsWhenEnteringOrLeavingInlined
 			identicalTo: (contextItems at: i) ]
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextUnchangedAfterStepOver [
 	| currentContext |
 	
@@ -416,7 +418,7 @@ StDebuggerTest >> testContextUnchangedAfterStepOver [
 	self assert: dbg inspector inspectedObject identicalTo:  currentContext
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testCopyStackToClipboard [
 	debugger := self debuggerOn: session.
 	debugger copyStackToClipboard.
@@ -426,7 +428,7 @@ StDebuggerTest >> testCopyStackToClipboard [
 				 session interruptedContext shortDebugStackOn: s ])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testCreateMissingMethodWithUnfilteredStackUpdatesCodePane [
 
 	| dnuMessage method pcRangeForContext segments highlightSegment adapter |
@@ -477,7 +479,7 @@ StDebuggerTest >> testCreateMissingMethodWithUnfilteredStackUpdatesCodePane [
 		equals: (pcRangeForContext first to: pcRangeForContext last + 1)
 ]
 
-{ #category : #'tests - initialization' }
+{ #category : 'tests - initialization' }
 StDebuggerTest >> testDebuggerActionModel [
 	"Checking that when initializing a debugger its action model is correctly set up.
 	We cannot check that by calling the accessor because it is a lazy accessor. 
@@ -491,14 +493,14 @@ StDebuggerTest >> testDebuggerActionModel [
 	self assert: debuggerActionModel notNil
 ]
 
-{ #category : #'tests - initialization' }
+{ #category : 'tests - initialization' }
 StDebuggerTest >> testDebuggerApplication [
 	self
 		assert: (self debuggerOn: session) application
 		identicalTo: StDebugger currentApplication
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testDiscardCodeChangesFor [
 	| firstContext lastContext |
 	
@@ -520,7 +522,7 @@ StDebuggerTest >> testDiscardCodeChangesFor [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testExceptionProvidesSameExceptionAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -529,13 +531,13 @@ StDebuggerTest >> testExceptionProvidesSameExceptionAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel exception
 ]
 
-{ #category : #'tests - initialization' }
+{ #category : 'tests - initialization' }
 StDebuggerTest >> testFastTDD [
 	self debuggerClass fastTDD: nil.
 	self deny: self debuggerClass fastTDD
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testInitialCodeSelectionAfterStepping [
 	| adapter segments highlightSegment pcRangeForContext |
 	
@@ -557,7 +559,7 @@ StDebuggerTest >> testInitialCodeSelectionAfterStepping [
 	"The pc range is highlighted with an additionnal index to encompass the full text of the node (why?)"
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testInterruptedContextProvidesSameContextAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -566,7 +568,7 @@ StDebuggerTest >> testInterruptedContextProvidesSameContextAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel interruptedContext
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testInterruptedProcessProvidesSameProcessAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -575,7 +577,7 @@ StDebuggerTest >> testInterruptedProcessProvidesSameProcessAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel interruptedProcess
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testIsInSelectedContextClass [
 
 	| stackTable context process |
@@ -595,7 +597,7 @@ StDebuggerTest >> testIsInSelectedContextClass [
 	self assert: (debugger isInSelectedContextClass: (stackTable items at: 7))
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testIsInSelectedContextPackage [
 
 	| stackTable context process |
@@ -615,7 +617,7 @@ StDebuggerTest >> testIsInSelectedContextPackage [
 	self assert: (debugger isInSelectedContextPackage: (stackTable items at: 12))
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testNewDebuggerContext [
 	| debuggerContext |
 	
@@ -625,7 +627,7 @@ StDebuggerTest >> testNewDebuggerContext [
 	self assert: debuggerContext exception equals: session exception
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testNewDebuggerContextFor [
 	| debuggerContext ctx |
 	
@@ -637,7 +639,7 @@ StDebuggerTest >> testNewDebuggerContextFor [
 	self assert: debuggerContext context identicalTo: ctx
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testPrintReceiverClassInContext [
 	|ctx result|
 	ctx := Context sender: nil receiver: Set new method: (Collection>>#add:) arguments: Array new. 
@@ -649,7 +651,7 @@ StDebuggerTest >> testPrintReceiverClassInContext [
 	self assert: result equals: 'Set'.
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverChangedAfterStepIn [ 
 
 	dbg := self debuggerOn: session.
@@ -661,7 +663,7 @@ StDebuggerTest >> testReceiverChangedAfterStepIn [
 	self assert: dbg inspector inspectedObject context receiver identicalTo: session shortStack first receiver
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverChangedAfterStepOverAndReturn [
 	| currentReceiver |
 	
@@ -675,7 +677,7 @@ StDebuggerTest >> testReceiverChangedAfterStepOverAndReturn [
 		equals: currentReceiver
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverList [
 	| currentReceiver |
 	dbg := self debuggerOn: session.	
@@ -686,7 +688,7 @@ StDebuggerTest >> testReceiverList [
 
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverUnchangedAfterStepOver [ 
 	| currentReceiver |
 	
@@ -700,7 +702,7 @@ StDebuggerTest >> testReceiverUnchangedAfterStepOver [
 
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testRecordUnsavedCodeChanges [
 	| lastContext |
 	
@@ -718,7 +720,7 @@ StDebuggerTest >> testRecordUnsavedCodeChanges [
 	self assert: (dbg unsavedCodeChangesFor: dbg stackTable items first) equals: 'a'
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testRequestClassFrom [
 
 	self
@@ -726,7 +728,7 @@ StDebuggerTest >> testRequestClassFrom [
 		identicalTo: self class
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testRequestProtocolIn [
 
 	self
@@ -734,7 +736,7 @@ StDebuggerTest >> testRequestProtocolIn [
 		equals: Protocol unclassified
 ]
 
-{ #category : #'tests - session' }
+{ #category : 'tests - session' }
 StDebuggerTest >> testRestartContext [
 	| firstContext lastContext |
 	
@@ -765,20 +767,20 @@ StDebuggerTest >> testRestartContext [
 
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testRestoreReceiverRawInspectionSelection [
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testRestoreReceiverRawInspectionSelectionAfterContextChange [
 
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testRestoreUnsavedCodeChanges [
 	| firstContext lastContext |
 	
@@ -798,13 +800,13 @@ StDebuggerTest >> testRestoreUnsavedCodeChanges [
 	self assert: dbg code text equals: 'a'
 ]
 
-{ #category : #'tests - session' }
+{ #category : 'tests - session' }
 StDebuggerTest >> testReturnEnteredValue [
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testSaveCodeModification [
 	| context newSource |
 	
@@ -828,21 +830,21 @@ StDebuggerTest >> testSaveCodeModification [
 
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testSaveReceiverRawInspectionSelection [
 
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testSaveReceiverRawInspectionSelectionAfterContextChange [
 
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - accepting faulty code' }
+{ #category : 'tests - accepting faulty code' }
 StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStackSizeBeforeIsTheSameAfter [
 
 	self replaceMethodWithQuickMethodStepping.
@@ -850,7 +852,7 @@ StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStackSizeBeforeIsTheSameA
 	self assert: dbg session stack size equals: stackSizeBefore
 ]
 
-{ #category : #'tests - accepting faulty code' }
+{ #category : 'tests - accepting faulty code' }
 StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStaysInQuickMethod [
 	
 	"We tell the parent that we wanted to step into"
@@ -859,7 +861,7 @@ StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStaysInQuickMethod [
 	self assert: dbg stackTable items first sourceCode equals: 'haltingMethod ^ 1'
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testSelectLastStackElementWithMoreElements [
 	| stackTable selectedItem |
 	
@@ -883,7 +885,7 @@ StDebuggerTest >> testSelectLastStackElementWithMoreElements [
 	
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testSelectLastStackElementWithoutMoreElements [
 	| stackTable startingStackSize |
 	
@@ -895,7 +897,7 @@ StDebuggerTest >> testSelectLastStackElementWithoutMoreElements [
 	self assert: stackTable items size equals: startingStackSize
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testSessionProvidesSameAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -904,7 +906,7 @@ StDebuggerTest >> testSessionProvidesSameAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel session
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testSessionStackProvidesSameStackAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -913,7 +915,7 @@ StDebuggerTest >> testSessionStackProvidesSameStackAsTheActionModelOne [
 		equals: debugger debuggerActionModel stack
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableAfterReturn [
 	| stackTableItems stackSizeAfterStepIn |
 	
@@ -932,7 +934,7 @@ StDebuggerTest >> testStackTableAfterReturn [
 	self assert: stackTableItems equals: session shortStack
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableAfterStepIn [
 	| stackTableItems startingStackSize |
 	
@@ -947,7 +949,7 @@ StDebuggerTest >> testStackTableAfterStepIn [
 	self assert: stackTableItems equals: session shortStack
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableElementsPrinting [
 	| columns classColumn methodColumn method block context |
 
@@ -973,12 +975,12 @@ StDebuggerTest >> testStackTableElementsPrinting [
 	"self assert: (senderColumn evaluation value: context) equals: self stDisplayString."
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableInitialization [
 	self assert: self debugger stackTable isNil
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTablePackagesLabels [
 	|stackTable packageColumn ctx|
 	self debugger session: session.
@@ -1012,7 +1014,7 @@ StDebuggerTest >> testStackTablePackagesLabels [
 
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableSelectionChanged [
 
 	dbg := self debuggerOn: session.
@@ -1031,7 +1033,7 @@ StDebuggerTest >> testStackTableSelectionChanged [
 		equals: dbg stackTable items second sourceCode
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableWithNewSession [
 	self debugger session: session.
 	self
@@ -1046,7 +1048,7 @@ StDebuggerTest >> testStackTableWithNewSession [
 				identicalTo: session shortStack first
 ]
 
-{ #category : #'tests - toolbar' }
+{ #category : 'tests - toolbar' }
 StDebuggerTest >> testToolbarDisplayMode [
 	debugger := self debuggerOn: session.
 	self
@@ -1054,7 +1056,7 @@ StDebuggerTest >> testToolbarDisplayMode [
 		equals: debugger application toolbarDisplayMode
 ]
 
-{ #category : #'tests - toolbar' }
+{ #category : 'tests - toolbar' }
 StDebuggerTest >> testToolbarInDNUContext [
 	|commands|
 	session clear.
@@ -1080,7 +1082,7 @@ StDebuggerTest >> testToolbarInDNUContext [
 	
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testUnsavedCodeChanges [
 
 	dbg := self debuggerOn: session.
@@ -1088,7 +1090,7 @@ StDebuggerTest >> testUnsavedCodeChanges [
 	self assertEmpty: dbg unsavedCodeChanges 
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testUnsavedCodeChangesFor [
 	| ctx codeChanges |
 	
@@ -1100,7 +1102,7 @@ StDebuggerTest >> testUnsavedCodeChangesFor [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testUpdateExtensionSubscription [
 
 	| announcementSubscriptions oldAnnouncementSubscriptions |
@@ -1123,7 +1125,7 @@ StDebuggerTest >> testUpdateExtensionSubscription [
 			isNotNil
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testUpdateLayoutForContextsIfAssertionFailure [
 
 	| assertionFailure currentLayout expectedLayout |
@@ -1163,7 +1165,7 @@ StDebuggerTest >> testUpdateLayoutForContextsIfAssertionFailure [
 		((session interruptedContext tempNamed: #aStringOrBlock) at: 1)
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testUpdateSourceCodeFor [
 
 	dbg := self debuggerOn: session.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st
index d11b0472e..5d10731d6 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st
@@ -1,28 +1,30 @@
 Class {
-	#name : #StDebuggerToolCommandTreeBuilderTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerToolCommandTreeBuilderTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugger',
 		'rootGroup',
 		'builder'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerToolCommandTreeBuilderTest class >> isAbstract [ 
 	^self class = StDebuggerToolCommandTreeBuilderTest 
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommandGroup: cmdGroup hasDisplayStrategy: displayStrategy [
 	self
 		assert: cmdGroup displayStrategy class
 		identicalTo: displayStrategy
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommandGroup: cmdGroup hasSameCommands: expectedCommands withContext: expectedContext displayStrategy: displayStrategy [
 	| commands |
 	self deny: cmdGroup isRoot.
@@ -35,14 +37,14 @@ StDebuggerToolCommandTreeBuilderTest >> assertCommandGroup: cmdGroup hasSameComm
 	self assertCommands: commands haveContext: expectedContext
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommandGroupEntries: commands hasCommands: expectedCommands [
 	self
 		assertCollection: (commands collect: [ :cmd | cmd class ])
 		hasSameElements: expectedCommands
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommands: commands equals: expectedCommands [
 	self assert: commands size equals: expectedCommands size.
 	commands
@@ -53,24 +55,24 @@ StDebuggerToolCommandTreeBuilderTest >> assertCommands: commands equals: expecte
 			self assert: actual class identicalTo: expected class ]
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommands: commands haveContext: expectedContext [
 	commands
 		do: [ :cmd | self assert: cmd context identicalTo: expectedContext ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerToolCommandTreeBuilderTest >> commandsFromSpecGroup: group [
 
 	^ group decoratedGroup entries collect: [ :cmd | cmd innerCommand ]
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerToolCommandTreeBuilderTest >> newBuilder [
 	^self subclassResponsibility 
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerToolCommandTreeBuilderTest >> setUp [
 	| context process |
 	super setUp.
@@ -92,7 +94,7 @@ StDebuggerToolCommandTreeBuilderTest >> setUp [
 	builder := self newBuilder
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerToolCommandTreeBuilderTest >> tearDown [
 	debugger ifNotNil:[debugger clear].
 	super tearDown.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st
index 556f5821e..062717e1f 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st
@@ -1,17 +1,19 @@
 Class {
-	#name : #StDebuggerToolbarCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerToolbarCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerToolbarCommandTreeBuilderTest >> newBuilder [
 	^ StDebuggerToolbarCommandTreeBuilder
 		buildCommandsGroupWith: debugger
 		forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testBuildCommandGroupFromNamedDescription [
 	| group spCommands |
 	group := builder
@@ -30,7 +32,7 @@ StDebuggerToolbarCommandTreeBuilderTest >> testBuildCommandGroupFromNamedDescrip
 	self assert: spCommands second context identicalTo: debugger
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testCommandGroupStructure [
 	|stackGroup|
 	stackGroup := rootGroup groups first.	
@@ -44,14 +46,14 @@ StDebuggerToolbarCommandTreeBuilderTest >> testCommandGroupStructure [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlCommandClasses [
 	self
 		assertCollection: builder contextControlCommandClasses
 		equals: {StDefineMissingEntityCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlDebuggingCommands [
 	self
 		assertCommandGroup: builder contextControlDebuggingCommands
@@ -60,28 +62,28 @@ StDebuggerToolbarCommandTreeBuilderTest >> testContextControlDebuggingCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlGroupDescription [
 	self
 		assert: builder contextControlGroupDescription
 		equals: 'Actions performed on the interrupted context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlGroupName [
 	self
 		assert: builder contextControlGroupName
 		equals: 'Context control'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestCommandClasses [
 	self
 		assertCollection: builder contextRequestCommandClasses
 		equals: {StWhereIsCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestDebuggingCommands [
 	self
 		assertCommandGroup: builder contextRequestDebuggingCommands
@@ -90,40 +92,40 @@ StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestDebuggingCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestGroupDescription [
 	self
 		assert: builder contextRequestGroupDescription
 		equals: 'Requests on the interrupted context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestGroupName [
 	self
 		assert: builder contextRequestGroupName
 		equals: 'Context requests'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testDefaultDebugActionsDescription [
 	self
 		assert: builder defaultDebugActionsDescription
 		equals: 'Defaults debugging actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testDefaultDebugActionsGroupName [
 	self
 		assert: builder defaultDebugActionsGroupName
 		equals: 'Debugging actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testDisplayStrategy [
 	self assert: builder class displayStrategy equals: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlCommandClasses [
 	self
 		assertCollection: builder executionControlCommandClasses
@@ -137,7 +139,7 @@ StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlCommandClasses [
 			StReturnValueCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlDebuggingCommands [
 	self
 		assertCommandGroup: builder executionControlDebuggingCommands
@@ -146,21 +148,21 @@ StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlDebuggingCommands
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlGroupDescription [
 	self
 		assert: builder executionControlGroupDescription
 		equals: 'Debug actions applied to the executed context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlGroupName [
 	self
 		assert: builder executionControlGroupName
 		equals: 'Execution control'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlShortcuts [
 
 	| commandsWithShortcuts |
@@ -174,12 +176,12 @@ StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlShortcuts [
 		self assert: command shortcutKey equals: class defaultShortcut ]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder class groupDescription equals: 'Debug actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Toolbar'
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st
index ba417673a..8567f05da 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #StDebuggerTreeTablePresenter }
+Extension { #name : 'StDebuggerTreeTablePresenter' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerTreeTablePresenter >> filter: anObject [
 
 	filter := anObject
 ]
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerTreeTablePresenter >> isFiltered: anObject [
 
 	isFiltered := anObject
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st
index b0f41c3ed..b8e5db4b3 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerTreeTablePresenterTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerTreeTablePresenterTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'presenter',
 		'inspectorNodes'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerTreeTablePresenterTest >> setUp [
 
 	| node |
@@ -28,7 +30,7 @@ StDebuggerTreeTablePresenterTest >> setUp [
 	presenter roots: inspectorNodes.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testApplyFilterDoesFilterWhenHasActiveFilterIsTrueAndFilterIsNotNil [
 
 	| rejectedItems filteredItems |
@@ -45,7 +47,7 @@ StDebuggerTreeTablePresenterTest >> testApplyFilterDoesFilterWhenHasActiveFilter
 		assertCollection: inspectorNodes hasSameElements: filteredItems , rejectedItems
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterAndRemovesFilterWhenHasActiveFilterIsFalse [
 
 	presenter filter: 'toto'.
@@ -54,7 +56,7 @@ StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterAndRemovesFilterW
 			assert: presenter filter isNil
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterWhenFilterIsNil [
 
 	presenter isFiltered: true.
@@ -62,7 +64,7 @@ StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterWhenFilterIsNil [
 	self assert: presenter roots equals: inspectorNodes
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testInitialization [
 
 	self deny: presenter hasActiveFilter.
@@ -70,7 +72,7 @@ StDebuggerTreeTablePresenterTest >> testInitialization [
 	self assert: presenter roots equals: inspectorNodes
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testRootsActualisesRootsByApplyingFilter [
 
 	| filteredItems |
@@ -83,7 +85,7 @@ StDebuggerTreeTablePresenterTest >> testRootsActualisesRootsByApplyingFilter [
 	self assert: presenter roots equals: filteredItems
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testToggleDoesNotFilterWhenFilteredButFilterIsNil [
 
 	presenter toggleFilter: nil.
@@ -91,7 +93,7 @@ StDebuggerTreeTablePresenterTest >> testToggleDoesNotFilterWhenFilteredButFilter
 		assert: presenter hasActiveFilter
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testToggleFiltersWhenFilteredAndFilterIsNotNil [
 
 	| rejectedItems |
@@ -106,7 +108,7 @@ StDebuggerTreeTablePresenterTest >> testToggleFiltersWhenFilteredAndFilterIsNotN
 		assert: presenter hasActiveFilter
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testToggleUnFiltersWhenToggledTwice [
 
 	presenter toggleFilter: 'toto'.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st b/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st
index fb04a591c..1ef6fea18 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st
@@ -2,91 +2,93 @@
 I mock the state of StDebuggerUsingSpecSelector to test variations in its state.
 "
 Class {
-	#name : #StDebuggerUsingSpecSelectorMock,
-	#superclass : #StDebuggerSpecSelector,
+	#name : 'StDebuggerUsingSpecSelectorMock',
+	#superclass : 'StDebuggerSpecSelector',
 	#instVars : [
 		'withDebuggerExtensions',
 		'withActivatedExtensions'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithExtensionsAllActivated [
 	^self new initializeWithExtensionsAllActivated
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithExtensionsNoneActivated [
 	^self new initializeWithExtensionsNoneActivated
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithoutExtensionsAllActivated [
 	^self new initializeWithoutExtensionsAllActivated
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithoutExtensionsNoneActivated [
 	^self new initializeWithoutExtensionsNoneActivated
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> activateDebuggerExtensions [
 	^withDebuggerExtensions 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> availableSpecSelectors [
 	^ StDebugger availableSpecSelectors
 		add: self nonDefaultSelector;
 		yourself
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerUsingSpecSelectorMock >> columnInspectorsSpec [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> debuggerClass [ 	
 	^self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> extensionToolsClasses [
 	^{}
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> hasAnyActivatedExtension: anObject [
 	^ withActivatedExtensions
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithExtensionsAllActivated [
 	withDebuggerExtensions := true.
 	withActivatedExtensions := true
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithExtensionsNoneActivated [
 	withDebuggerExtensions := true.
 	withActivatedExtensions := false
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithoutExtensionsAllActivated [
 	withDebuggerExtensions := false.
 	withActivatedExtensions := true
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithoutExtensionsNoneActivated [
 	withDebuggerExtensions := false.
 	withActivatedExtensions := false
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> nonDefaultSelector [
 	^#nonDefaultSelector
 ]
diff --git a/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st b/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st
index dd3a967c3..141fb9aa8 100644
--- a/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st
+++ b/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st
@@ -4,142 +4,144 @@ I'm used in tests to easily ensure that commands or other clients call the corre
 The debugger interface itself is tested in the debugger test class.
 "
 Class {
-	#name : #StDummyDebuggerPresenter,
-	#superclass : #SpPresenter,
+	#name : 'StDummyDebuggerPresenter',
+	#superclass : 'SpPresenter',
 	#traits : 'TStDebuggerExtension',
 	#classTraits : 'TStDebuggerExtension classTrait',
 	#instVars : [
 		'tag'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDummyDebuggerPresenter class >> isOnlyForTests [
 
 	^ true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> copyStackToClipboard [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> createMissingClass [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> createMissingMethod [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> createSubclassResponsibility [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDummyDebuggerPresenter >> currentContext [
 	^self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDummyDebuggerPresenter >> debuggerExtensionToolName [
 	^'Test extendedDebuggingToolTitle'
 	
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDummyDebuggerPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical 
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> fileOutSelectedContext [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> peelToFirstLike: aStDummyDebuggerPresenter [
 
 	tag := thisContext method selector.
 	^ true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> proceedDebugSession [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> restartCurrentContext [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> returnEnteredValue [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> runToSelection [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> selectNextExecutedExpression [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> showFullStack [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> stepInto [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> stepOver [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> stepThrough [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDummyDebuggerPresenter >> tag [
 	^ tag
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDummyDebuggerPresenter >> tag: anObject [
 
 	tag := anObject
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> unimplementedSubclassResponsibility [
 	self subclassResponsibility 
 ]
diff --git a/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st b/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st
index bb361a52f..798f7c318 100644
--- a/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st
+++ b/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StFailingAssertionInspectorTest,
-	#superclass : #TestCase,
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#name : 'StFailingAssertionInspectorTest',
+	#superclass : 'TestCase',
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 StFailingAssertionInspectorTest >> testDiffForNonStringObjects [
 	|a e inspector|
 	a := 'a'.
@@ -27,7 +29,7 @@ StFailingAssertionInspectorTest >> testDiffForNonStringObjects [
 	self assert: inspector stringDiff equals: nil.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StFailingAssertionInspectorTest >> testDiffForStrings [
 	|a e inspector|
 	a := 'a'.
@@ -41,7 +43,7 @@ StFailingAssertionInspectorTest >> testDiffForStrings [
 	self assert: inspector expectedObjectMillerList equals: nil.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StFailingAssertionInspectorTest >> testDiffForSymbols [
 	|actual expected inspector|
 	actual := #'#east'. 
diff --git a/src/NewTools-Debugger-Tests/StMockContext.class.st b/src/NewTools-Debugger-Tests/StMockContext.class.st
index 70191bdfa..79788fdd2 100644
--- a/src/NewTools-Debugger-Tests/StMockContext.class.st
+++ b/src/NewTools-Debugger-Tests/StMockContext.class.st
@@ -3,28 +3,30 @@ I'm an object answering to part of the API of Context, but doing nothing.
 You can use me in your tests where messages are sent to a context but you do not actually want to act on a real one, or when you want to record what was done on the context.
 "
 Class {
-	#name : #StMockContext,
-	#superclass : #Object,
+	#name : 'StMockContext',
+	#superclass : 'Object',
 	#instVars : [
 		'stepIntoQuickMethodBooleans'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockContext >> scope [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockContext >> sourceNodeExecuted [
 ]
 
-{ #category : #'debugger access' }
+{ #category : 'debugger access' }
 StMockContext >> stepIntoQuickMethod: aBoolean [
 	self stepIntoQuickMethodBooleans add: aBoolean
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockContext >> stepIntoQuickMethodBooleans [
 
 	^ stepIntoQuickMethodBooleans ifNil: [ 
diff --git a/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st b/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st
index b29cf3eeb..2978f60ae 100644
--- a/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st
+++ b/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st
@@ -2,28 +2,30 @@
 A mock command for dezbugger command tree builder tests
 "
 Class {
-	#name : #StMockDebugCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StMockDebugCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebugCommand class >> defaultIconName [
 	^ #defaultIconName
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebugCommand class >> defaultName [
 
 	^ UUID new printString
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebugCommand class >> defaultShortcut [
 	^ #defaultShortcut
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StMockDebugCommand >> execute [
 	^self context
 ]
diff --git a/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st b/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st
index cce5fb191..c7411fa16 100644
--- a/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st
+++ b/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st
@@ -2,24 +2,26 @@
 I'm used to mock certain aspects of the `StDebuggerActionModel` class for testing.
 "
 Class {
-	#name : #StMockDebuggerActionModel,
-	#superclass : #StDebuggerActionModel,
+	#name : 'StMockDebuggerActionModel',
+	#superclass : 'StDebuggerActionModel',
 	#instVars : [
 		'tag',
 		'interruptedContext'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StMockDebuggerActionModel >> autoClassifyMessage: aMessage inClass: aClass [
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StMockDebuggerActionModel >> computeInitialTopContext [
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebuggerActionModel >> initialize [
 	super initialize.
 	self interruptedContext: (Context
@@ -29,25 +31,25 @@ StMockDebuggerActionModel >> initialize [
 			 arguments: #( #message ))
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockDebuggerActionModel >> interruptedContext: anObject [
 
 	interruptedContext := anObject.
 	topContext := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockDebuggerActionModel >> session [
 	^StMockSession new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockDebuggerActionModel >> tag [
 	^tag
 	
 ]
 
-{ #category : #'debug - stepping' }
+{ #category : 'debug - stepping' }
 StMockDebuggerActionModel >> updateTopContext [
 	tag :=  #updateTopContext
 	
diff --git a/src/NewTools-Debugger-Tests/StMockSession.class.st b/src/NewTools-Debugger-Tests/StMockSession.class.st
index 48588fb90..676cb24af 100644
--- a/src/NewTools-Debugger-Tests/StMockSession.class.st
+++ b/src/NewTools-Debugger-Tests/StMockSession.class.st
@@ -3,54 +3,56 @@ I'm an object answering to part of the API of `DebugSession`, but doing nothing.
 You can use me in your tests where messages are sent to a debug session but you do not actually want to act on a real one. 
 "
 Class {
-	#name : #StMockSession,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StMockSession',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #'reflective operations' }
+{ #category : 'reflective operations' }
 StMockSession >> doesNotUnderstand: aMessage [
 
 	^ self
 ]
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StMockSession >> implement: aMessage inClass: aClass forContext: aContext [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockSession >> interruptedContext [
 	 ^self
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> restart: aContext [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> returnValue: value from: aContext [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> runToSelection: aSelectionInterval inContext: aContext [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockSession >> scope [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockSession >> sourceNodeExecuted [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> stepInto: aContext [ 
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> stepOver: aContext [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> stepThrough: aContext [
 ]
diff --git a/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st b/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st
index d09f593d2..625236ede 100644
--- a/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st
+++ b/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st
@@ -2,15 +2,17 @@
 Utilitary class to provide various kind of debuggers, interrupted context and debug sessions for testing purposes
 "
 Class {
-	#name : #StTestDebuggerProvider,
-	#superclass : #Object,
+	#name : 'StTestDebuggerProvider',
+	#superclass : 'Object',
 	#instVars : [
 		'session'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider class >> compileMissingClassContextBuilder [
 	
 	self compiler permitUndeclared: true; install: 'buildDebuggerWithMissingClassContext
@@ -22,13 +24,13 @@ StTestDebuggerProvider class >> compileMissingClassContextBuilder [
 			^ self newDebugger ]'
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithContext: aContext [
 	self sessionFor: aContext.
 	^ self newDebugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithDNUContext [
 	[ self methodProducingDNU ]
 		on: Error
@@ -37,7 +39,7 @@ StTestDebuggerProvider >> debuggerWithDNUContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithErrorContext [
 
 	[ #(  ) at: 1 ]
@@ -47,7 +49,7 @@ StTestDebuggerProvider >> debuggerWithErrorContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithFailingAssertionContext [
 	[ self produceAssertionFailure ]
 		on: TestFailure
@@ -56,7 +58,7 @@ StTestDebuggerProvider >> debuggerWithFailingAssertionContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithFailingShouldntRaiseContext [
 	[ self produceShouldntRaiseFailure ]
 		on: TestFailure
@@ -65,7 +67,7 @@ StTestDebuggerProvider >> debuggerWithFailingShouldntRaiseContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithFailingTestContext [
 	[ self produceTestFailure ]
 		on: TestFailure
@@ -74,7 +76,7 @@ StTestDebuggerProvider >> debuggerWithFailingTestContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithMissingClassContext [
 	"The called method must contain a undeclared variable (the missing class).
 	It makes the CI test fail, so it has to be generated and removed after usage.
@@ -83,7 +85,7 @@ StTestDebuggerProvider >> debuggerWithMissingClassContext [
 	^ self buildDebuggerWithMissingClassContext
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithMissingSubclassResponsibilityContext [
 	[ StDummyDebuggerPresenter new unimplementedSubclassResponsibility ]
 		on: SubclassResponsibility
@@ -92,7 +94,7 @@ StTestDebuggerProvider >> debuggerWithMissingSubclassResponsibilityContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithObjectHalting [
 	[ StDebuggerObjectForTests new haltingMethod ]
 		on: Halt
@@ -101,7 +103,7 @@ StTestDebuggerProvider >> debuggerWithObjectHalting [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithRecursiveContext [
 
 	| debugger |
@@ -111,7 +113,7 @@ StTestDebuggerProvider >> debuggerWithRecursiveContext [
 	^ debugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithRunnableContext [
 <haltOrBreakpointForTesting>
 	[ Halt now ]
@@ -121,7 +123,7 @@ StTestDebuggerProvider >> debuggerWithRunnableContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> intermediateRecursiveMethodCall [
 
 	"Dummy assignment to avoid the test session to step to the next interesting bytecode (= next return)"
@@ -131,13 +133,13 @@ StTestDebuggerProvider >> intermediateRecursiveMethodCall [
 	^ self recursiveMethodCall
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> methodProducingDNU [
 
 	^ self foobar
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> newDebugger [
 
 	| debugger |
@@ -147,22 +149,22 @@ StTestDebuggerProvider >> newDebugger [
 	^ debugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> produceAssertionFailure [
 	TestCase new assert: 4 equals: 2
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> produceShouldntRaiseFailure [
 	TestCase new shouldnt: [ 1/0 ] raise: ZeroDivide
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> produceTestFailure [
 	TestCase new fail
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> recursiveMethodCall [
 
 	"Dummy assignment to avoid the test session to step to the next interesting bytecode (= next return)"
@@ -172,13 +174,13 @@ StTestDebuggerProvider >> recursiveMethodCall [
 	^ self intermediateRecursiveMethodCall
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> session [
 
 	^ session
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionFor: aContext [
 
 	| process |
@@ -192,7 +194,7 @@ StTestDebuggerProvider >> sessionFor: aContext [
 	session exception ifNil: [ session exception: OupsNullException new ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionFor: aContext exception: e [
 
 	e freezeUpTo: nil.
@@ -201,7 +203,7 @@ StTestDebuggerProvider >> sessionFor: aContext exception: e [
 	session exception: e
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionForDebuggerTests [
 
 	| context process sessionForTests |
@@ -223,7 +225,7 @@ StTestDebuggerProvider >> sessionForDebuggerTests [
 	^ sessionForTests
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionWithDNUAfterStep [
 
 	| context process sessionForTests |
@@ -239,7 +241,7 @@ StTestDebuggerProvider >> sessionWithDNUAfterStep [
 	^ sessionForTests
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> terminate [ 
 	session ifNotNil:[session clear].
 	session := nil
diff --git a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st
index 32ba14e64..3a5aafa6e 100644
--- a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st
+++ b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st
@@ -1,19 +1,21 @@
 Class {
-	#name : #TStDebuggerExtensionTest,
-	#superclass : #TestCase,
+	#name : 'TStDebuggerExtensionTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'traitUser'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 TStDebuggerExtensionTest >> setUp [
 	super setUp.
 	traitUser := StDebuggerExtensionGeneratorForTests testClass new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 TStDebuggerExtensionTest >> tearDown [
 
 	traitUser class displayOrder: 1.
@@ -22,12 +24,12 @@ TStDebuggerExtensionTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testDefaultDisplayOrder [
 	self assert: TStDebuggerExtension defaultDisplayOrder equals: 1
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testDisplayOrder [
 
 	self
@@ -40,13 +42,13 @@ TStDebuggerExtensionTest >> testDisplayOrder [
 	self assert: traitUser displayOrder equals: 10
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testExtensionToolNameIsExplicitRequirement [
 
 	self assert: (TStDebuggerExtension>>#debuggerExtensionToolName) isExplicitlyRequired 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testShowInDebugger [
 
 	self deny: TStDebuggerExtension showInDebugger.
diff --git a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st
index 34d55f337..3c3d606ef 100644
--- a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st
+++ b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st
@@ -1,24 +1,26 @@
 Class {
-	#name : #TStDebuggerExtensionTestClass,
-	#superclass : #SpPresenter,
+	#name : 'TStDebuggerExtensionTestClass',
+	#superclass : 'SpPresenter',
 	#traits : 'TStDebuggerExtension',
 	#classTraits : 'TStDebuggerExtension classTrait',
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #layout }
+{ #category : 'layout' }
 TStDebuggerExtensionTestClass class >> defaultLayout [
 
 	^ SpBoxLayout newVertical
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 TStDebuggerExtensionTestClass class >> isOnlyForTests [
 
 	^ true
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtensionTestClass >> debuggerExtensionToolName [
 	
 	^ 'TStDebuggerExtensionTestClass'
diff --git a/src/NewTools-Debugger-Tests/package.st b/src/NewTools-Debugger-Tests/package.st
index b0c9b39ba..fad40c086 100644
--- a/src/NewTools-Debugger-Tests/package.st
+++ b/src/NewTools-Debugger-Tests/package.st
@@ -1 +1 @@
-Package { #name : #'NewTools-Debugger-Tests' }
+Package { #name : 'NewTools-Debugger-Tests' }
diff --git a/src/NewTools-Debugger/StDebugger.class.st b/src/NewTools-Debugger/StDebugger.class.st
index bcc9fe479..1045ef43f 100644
--- a/src/NewTools-Debugger/StDebugger.class.st
+++ b/src/NewTools-Debugger/StDebugger.class.st
@@ -266,6 +266,7 @@ StDebugger class >> usesExtensions [
 	^ self hasAnyActivatedExtension: self extensionToolsClasses
 ]
 
+
 { #category : 'code pane' }
 StDebugger >> acceptCodeChanges: newSource forContext: aContext [
 
@@ -353,6 +354,7 @@ StDebugger >> clear [
 	self clearDebugSession
 ]
 
+
 { #category : 'code pane' }
 StDebugger >> clearCode [
 	
@@ -362,6 +364,7 @@ StDebugger >> clearCode [
 		clearContent
 ]
 
+
 { #category : 'actions' }
 StDebugger >> clearDebugSession [
 
@@ -369,12 +372,14 @@ StDebugger >> clearDebugSession [
 		debugActionModel clearDebugSession ]
 ]
 
+
 { #category : 'actions' }
 StDebugger >> clearDebuggerActionModel [
 	
 	self debuggerActionModel ifNotNil: [ :debugActionModel | debugActionModel clear ]
 ]
 
+
 { #category : 'code pane' }
 StDebugger >> clearUnsavedCodeChanges [
 
@@ -390,6 +395,7 @@ StDebugger >> close [
 			actionModel clearDebugSession ] ]
 ]
 
+
 { #category : 'accessing - presenters' }
 StDebugger >> code [
 
@@ -1152,12 +1158,6 @@ StDebugger >> setStackAndCodeContainer [
 		                         ifFalse: [ self stackAndCodeLayout ]
 ]
 
-{ #category : 'actions' }
-StDebugger >> showFullStack [
-	stackTable items: (self filterStack: self stack)
-
-]
-
 { #category : 'stack' }
 StDebugger >> stack [
 	^ self debuggerActionModel stack 
diff --git a/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st b/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st
index 13ed40fb2..ec58d84ad 100644
--- a/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st
@@ -180,7 +180,6 @@ StDebuggerStackCommandTreeBuilder >> stackContextNavigationGroupName [
 StDebuggerStackCommandTreeBuilder >> stackEditionCommandsClasses [
 	^ {
 	StCopyStackToClipboardCommand.
-	StShowFullStackCommand.
 	StPeelToFirstCommand.
 	StFileOutMethodCommand
 	}