From 1baf6b63f531d16cc6b8b0f4e698a0380c84f15b Mon Sep 17 00:00:00 2001
From: Steven Costiou <26929529+StevenCostiou@users.noreply.github.com>
Date: Wed, 18 Oct 2023 16:13:20 +0200
Subject: [PATCH] There was a missing return in a description accessor

---
 .../ManifestSpec2Commands.class.st            |  8 +++--
 .../SpAcceptChangesCommand.class.st           | 16 ++++++----
 .../SpBrowseClassCommand.class.st             | 20 ++++++------
 .../SpBrowseClassHierarchyCommand.class.st    | 14 ++++----
 .../SpBrowseClassReferencesCommand.class.st   | 14 ++++----
 .../SpBrowseClassVarRefsCommand.class.st      | 14 ++++----
 .../SpBrowseClassVariablesCommand.class.st    | 14 ++++----
 .../SpBrowseImplementorsCommand.class.st      | 18 ++++++-----
 .../SpBrowseInstVarRefsCommand.class.st       | 14 ++++----
 .../SpBrowseInstancesCommand.class.st         | 14 ++++----
 .../SpBrowseMethodInheritanceCommand.class.st | 14 ++++----
 .../SpBrowseMethodReferencesCommand.class.st  | 18 ++++++-----
 .../SpBrowseMethodVersionsCommand.class.st    | 16 ++++++----
 ...wseMethodsContainingStringCommand.class.st | 16 ++++++----
 ...sMatchingStringInsensitiveCommand.class.st | 18 ++++++-----
 ...odsMatchingStringSensitiveCommand.class.st | 18 ++++++-----
 .../SpBrowsePointersToCommand.class.st        | 14 ++++----
 .../SpBrowseSendersCommand.class.st           | 18 ++++++-----
 .../SpBrowseSubInstancesCommand.class.st      | 14 ++++----
 .../SpCancelChangesCommand.class.st           | 16 ++++++----
 .../SpSystemDiscoveryCommand.class.st         | 10 +++---
 .../SpSystemNavigationCommand.class.st        | 22 +++++++------
 .../SpSystemSelectionCommand.class.st         | 16 ++++++----
 src/Spec2-Commands/SpTextCopyCommand.class.st | 16 ++++++----
 src/Spec2-Commands/SpTextCutCommand.class.st  | 16 ++++++----
 .../SpTextEditionCommand.class.st             | 12 ++++---
 src/Spec2-Commands/SpTextFindCommand.class.st | 14 ++++----
 .../SpTextPasteCommand.class.st               | 16 ++++++----
 .../SpTextSearchCommand.class.st              | 14 ++++----
 .../SpTextSelectAndPasteCommand.class.st      | 14 ++++----
 src/Spec2-Commands/SpToolCommand.class.st     | 32 ++++++++++---------
 .../SpToolCurrentApplication.class.st         |  8 +++--
 .../SpToolCurrentApplicationCommand.class.st  | 12 ++++---
 src/Spec2-Commands/package.st                 |  2 +-
 34 files changed, 289 insertions(+), 223 deletions(-)

diff --git a/src/Spec2-Commands/ManifestSpec2Commands.class.st b/src/Spec2-Commands/ManifestSpec2Commands.class.st
index b0069aff9..9d98ba8fc 100644
--- a/src/Spec2-Commands/ManifestSpec2Commands.class.st
+++ b/src/Spec2-Commands/ManifestSpec2Commands.class.st
@@ -6,7 +6,9 @@ Spec is a framework in Pharo for describing user interfaces. It allows for the c
 I am a package whose responsibility is to define the commands that will be used by Spec.
 "
 Class {
-	#name : #ManifestSpec2Commands,
-	#superclass : #PackageManifest,
-	#category : #'Spec2-Commands-Manifest'
+	#name : 'ManifestSpec2Commands',
+	#superclass : 'PackageManifest',
+	#category : 'Spec2-Commands-Manifest',
+	#package : 'Spec2-Commands',
+	#tag : 'Manifest'
 }
diff --git a/src/Spec2-Commands/SpAcceptChangesCommand.class.st b/src/Spec2-Commands/SpAcceptChangesCommand.class.st
index 066d05a8c..c6a62b542 100644
--- a/src/Spec2-Commands/SpAcceptChangesCommand.class.st
+++ b/src/Spec2-Commands/SpAcceptChangesCommand.class.st
@@ -1,27 +1,29 @@
 Class {
-	#name : #SpAcceptChangesCommand,
-	#superclass : #SpToolCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpAcceptChangesCommand',
+	#superclass : 'SpToolCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpAcceptChangesCommand class >> defaultIconName [
 	^#smallOk 
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpAcceptChangesCommand class >> defaultName [
 
 	^ 'Accept'
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpAcceptChangesCommand class >> defaultShortcutKey [
 
 	^ $s command mac | $s ctrl win | $s ctrl unix
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpAcceptChangesCommand >> execute [
 
 	self context triggerSubmitAction
diff --git a/src/Spec2-Commands/SpBrowseClassCommand.class.st b/src/Spec2-Commands/SpBrowseClassCommand.class.st
index 3396fd0c9..3b93e67d2 100644
--- a/src/Spec2-Commands/SpBrowseClassCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseClassCommand.class.st
@@ -3,20 +3,22 @@ I browse a class that is returned from the evaluation of my context.
 My context must be a block that returns a class.
 "
 Class {
-	#name : #SpBrowseClassCommand,
-	#superclass : #SpSystemSelectionCommand,
+	#name : 'SpBrowseClassCommand',
+	#superclass : 'SpSystemSelectionCommand',
 	#instVars : [
 		'selector'
 	],
-	#category : #'Spec2-Commands-Navigation'
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassCommand class >> defaultDescription [
 	^ 'Browse the selected class'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassCommand class >> defaultShortcutKey [
 
 	^ $b command mac 
@@ -24,25 +26,25 @@ SpBrowseClassCommand class >> defaultShortcutKey [
 		| $b control unix
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassCommand class >> shortName [
 
 	^ 'full class'
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpBrowseClassCommand >> execute [
 
 	self context perform: self selector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpBrowseClassCommand >> selector [
 
 	^ selector ifNil: [ #doBrowseClass ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpBrowseClassCommand >> selector: aSelector [
 
 	selector := aSelector
diff --git a/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st b/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st
index 90fd38c1a..32b323c08 100644
--- a/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st
@@ -2,23 +2,25 @@
 My context must evaluate to a Behavior. I then browse the hierarchy of that behavior.
 "
 Class {
-	#name : #SpBrowseClassHierarchyCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseClassHierarchyCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassHierarchyCommand class >> defaultDescription [
 	^ 'Browse the class hierarchy of the selected class'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassHierarchyCommand class >> shortName [
 
 	^ 'class hierarchy'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseClassHierarchyCommand >> execute [
 
 	self context doBrowseHierarchy
diff --git a/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st b/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st
index 6974aa911..b30332011 100644
--- a/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st
@@ -2,23 +2,25 @@
 Browse all references to the class returned by the evaluation of the context.
 "
 Class {
-	#name : #SpBrowseClassReferencesCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseClassReferencesCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassReferencesCommand class >> defaultDescription [
 	^ 'Browse all references to the receiver''s class'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassReferencesCommand class >> shortName [
 
 	^ 'class references'
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpBrowseClassReferencesCommand >> execute [
 
 	self context doBrowseClassReferences
diff --git a/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st b/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st
index f35ad6e72..d3a7d7744 100644
--- a/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st
@@ -3,23 +3,25 @@ My context is a class, I browse the class var refs of that class.
 The system navigation is in charge of executing, and will ask the user to select a variable.
 "
 Class {
-	#name : #SpBrowseClassVarRefsCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseClassVarRefsCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassVarRefsCommand class >> defaultDescription [
 	^ 'Browse the references to class variables'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassVarRefsCommand class >> shortName [
 
 	^ 'class variables reference'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseClassVarRefsCommand >> execute [	
 	
 	self systemNavigation browseClassVarRefs: self target
diff --git a/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st b/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st
index 0d7f25ebf..08bdf7f9d 100644
--- a/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st
@@ -2,23 +2,25 @@
 My context is a class, I browse the class variables of that class.
 "
 Class {
-	#name : #SpBrowseClassVariablesCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseClassVariablesCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassVariablesCommand class >> defaultDescription [
 	^ 'Browse the class variables'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseClassVariablesCommand class >> shortName [
 
 	^ 'class variables'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseClassVariablesCommand >> execute [
 
 	self systemNavigation browseClassVariables: self target
diff --git a/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st b/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st
index 5fbdf51ea..fa7a54afe 100644
--- a/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st
@@ -2,23 +2,25 @@
 Browse all implementors of the selector found in context.
 "
 Class {
-	#name : #SpBrowseImplementorsCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseImplementorsCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseImplementorsCommand class >> defaultDescription [
 	^ 'Browse all implementors of the selected method or message'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpBrowseImplementorsCommand class >> defaultName [
 
 	^ 'Implementors of it'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseImplementorsCommand class >> defaultShortcutKey [
 
 	^ $m command mac 
@@ -26,13 +28,13 @@ SpBrowseImplementorsCommand class >> defaultShortcutKey [
 		| $m control unix
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseImplementorsCommand class >> shortName [
 
 	^ 'implementors'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseImplementorsCommand >> execute [
 
 	self context doBrowseImplementors
diff --git a/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st b/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st
index fb1b137d0..d5e9c7909 100644
--- a/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st
@@ -3,23 +3,25 @@ My context is a class, I browse the inst var refs of that class.
 The system navigation is in charge of executing, and will ask the user to select a variable.
 "
 Class {
-	#name : #SpBrowseInstVarRefsCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseInstVarRefsCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseInstVarRefsCommand class >> defaultDescription [
 	^ 'Browse the references to instance variables'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseInstVarRefsCommand class >> shortName [
 
 	^ 'instance variables reference'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseInstVarRefsCommand >> execute [	
 	self systemNavigation browseInstVarRefs: self target
 ]
diff --git a/src/Spec2-Commands/SpBrowseInstancesCommand.class.st b/src/Spec2-Commands/SpBrowseInstancesCommand.class.st
index 13eb8adcd..d3b880b01 100644
--- a/src/Spec2-Commands/SpBrowseInstancesCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseInstancesCommand.class.st
@@ -2,23 +2,25 @@
 I browse all instances of the class returned by the evaluation of my context
 "
 Class {
-	#name : #SpBrowseInstancesCommand,
-	#superclass : #SpSystemDiscoveryCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseInstancesCommand',
+	#superclass : 'SpSystemDiscoveryCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseInstancesCommand class >> defaultDescription [
 	^ 'Browse all instances of the selected class'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpBrowseInstancesCommand class >> shortName [
 
 	^ 'all instances'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseInstancesCommand >> execute [
 
 	self target instanceSide inspectAllInstances
diff --git a/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st b/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st
index 9e41c4fd4..4e25b76f7 100644
--- a/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st
@@ -2,23 +2,25 @@
 I browse the inheritance of a method - my context must evaluate to a method.
 "
 Class {
-	#name : #SpBrowseMethodInheritanceCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseMethodInheritanceCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodInheritanceCommand class >> defaultDescription [
 	^ 'Browse the hierarchy implementors of the selected method'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodInheritanceCommand class >> shortName [
 
 	^ 'method inheritance'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseMethodInheritanceCommand >> execute [
 	self systemNavigation
 		methodHierarchyBrowserForClass: self target methodClass
diff --git a/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st b/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st
index 235ccbf93..e85001a7c 100644
--- a/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st
@@ -2,23 +2,25 @@
 I browse all references to the computed context that is transformed to a symbol.
 "
 Class {
-	#name : #SpBrowseMethodReferencesCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseMethodReferencesCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodReferencesCommand class >> defaultDescription [
 	^ 'Browse all references to the selected method or selector'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodReferencesCommand class >> defaultName [ 
 
 	^ 'References to it'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodReferencesCommand class >> defaultShortcutKey [
 
 	^ $n command shift mac 
@@ -26,13 +28,13 @@ SpBrowseMethodReferencesCommand class >> defaultShortcutKey [
 		| $n control shift unix
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodReferencesCommand class >> shortName [
 
 	^ 'references'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseMethodReferencesCommand >> execute [
 
 	self context doBrowseMethodReferences
diff --git a/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st b/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st
index 5526f7f70..560746c4c 100644
--- a/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st
@@ -2,23 +2,25 @@
 Create and schedule a message set browser on all versions of the method returned by the evaluation of the context.
 "
 Class {
-	#name : #SpBrowseMethodVersionsCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseMethodVersionsCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodVersionsCommand class >> defaultDescription [ 
-	'Browse history of the method'
+	^'Browse history of the method' 
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodVersionsCommand class >> shortName [
 
 	^ 'method versions'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseMethodVersionsCommand >> execute [
 	| target |
 
diff --git a/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st b/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st
index 6fd4ea1e2..cf99c23fb 100644
--- a/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st
@@ -2,30 +2,32 @@
 I browse all methods containing a string returned by the computed context.
 "
 Class {
-	#name : #SpBrowseMethodsContainingStringCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseMethodsContainingStringCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsContainingStringCommand class >> defaultDescription [
 
 	^ 'Browse all methods containing the selected string'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsContainingStringCommand class >> defaultName [
 
 	^ 'Method source with it'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsContainingStringCommand class >> shortName [
 
 	^ 'methods containing string'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseMethodsContainingStringCommand >> execute [
 
 	self context doBrowseMethodsContainingString
diff --git a/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st b/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st
index df71a4423..f788758ee 100644
--- a/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st
@@ -2,24 +2,26 @@
 Browse all methods matching the selected string (case-insensitive).
 "
 Class {
-	#name : #SpBrowseMethodsMatchingStringInsensitiveCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseMethodsMatchingStringInsensitiveCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultDescription [
 
 	^ 'Browse all methods containing a string matchign the selected string (case-sensitive)'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultName [
 
 	^ 'Case insensitive method literal strings with it'
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultShortcutKey [
 
 	^ $e command shift mac
@@ -27,13 +29,13 @@ SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultShortcutKey [
 		| $e control shift unix
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsMatchingStringInsensitiveCommand class >> shortName [
 
 	^ nil "Do not use"
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseMethodsMatchingStringInsensitiveCommand >> execute [
 
 	self context doBrowseMethodsMatchingStringInsensitive
diff --git a/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st b/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st
index 5d1ecc873..892f5a07e 100644
--- a/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st
@@ -2,23 +2,25 @@
 Browse all methods matching the selected string (case-sensitive).
 "
 Class {
-	#name : #SpBrowseMethodsMatchingStringSensitiveCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseMethodsMatchingStringSensitiveCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultDescription [
 	^ 'Browse all methods containing a string matchign the selected string (case-sensitive)'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultName [
 
 	^ 'Case sensitive method literal strings with it'
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultShortcutKey [
 
 	^ $u command shift mac
@@ -26,13 +28,13 @@ SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultShortcutKey [
 		| $u control shift unix
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseMethodsMatchingStringSensitiveCommand class >> shortName [
 
 	^ 'methods literal strings (case-sensitive)'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseMethodsMatchingStringSensitiveCommand >> execute [
 
 	self context doBrowseMethodsMatchingStringSensitive
diff --git a/src/Spec2-Commands/SpBrowsePointersToCommand.class.st b/src/Spec2-Commands/SpBrowsePointersToCommand.class.st
index 1c2a81f8c..992ae55c8 100644
--- a/src/Spec2-Commands/SpBrowsePointersToCommand.class.st
+++ b/src/Spec2-Commands/SpBrowsePointersToCommand.class.st
@@ -2,23 +2,25 @@
 I inspect all pointers to the object returned by the evaluation of my context
 "
 Class {
-	#name : #SpBrowsePointersToCommand,
-	#superclass : #SpSystemDiscoveryCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowsePointersToCommand',
+	#superclass : 'SpSystemDiscoveryCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowsePointersToCommand class >> defaultDescription [
 	^ 'Browse all objects referencing the selected object'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowsePointersToCommand class >> shortName [
 
 	^ 'pointers to'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowsePointersToCommand >> execute [
 	self target selectedItem value pointersTo inspect
 ]
diff --git a/src/Spec2-Commands/SpBrowseSendersCommand.class.st b/src/Spec2-Commands/SpBrowseSendersCommand.class.st
index 09eae8d2a..909554ed9 100644
--- a/src/Spec2-Commands/SpBrowseSendersCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseSendersCommand.class.st
@@ -3,23 +3,25 @@ Browse all senders.
 
 "
 Class {
-	#name : #SpBrowseSendersCommand,
-	#superclass : #SpSystemSelectionCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseSendersCommand',
+	#superclass : 'SpSystemSelectionCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseSendersCommand class >> defaultDescription [
 	^ 'Browse all senders of the selected method or message'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseSendersCommand class >> defaultName [
 
 	^ 'Senders of it'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseSendersCommand class >> defaultShortcutKey [
 
 	^ $n command mac 
@@ -27,13 +29,13 @@ SpBrowseSendersCommand class >> defaultShortcutKey [
 		| $n control unix
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseSendersCommand class >> shortName [
 
 	^ 'senders'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseSendersCommand >> execute [
 	
 	self context doBrowseSenders
diff --git a/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st b/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st
index f48c9d9bb..316e2ce67 100644
--- a/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st
+++ b/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st
@@ -2,23 +2,25 @@
 I browse all instances of the class (and all its subclasses) returned by the evaluation of my context 
 "
 Class {
-	#name : #SpBrowseSubInstancesCommand,
-	#superclass : #SpSystemDiscoveryCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpBrowseSubInstancesCommand',
+	#superclass : 'SpSystemDiscoveryCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseSubInstancesCommand class >> defaultDescription [
 	^ 'Browse all instances of the selected class and all its subclasses'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpBrowseSubInstancesCommand class >> shortName [
 
 	^ 'all subinstances'
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpBrowseSubInstancesCommand >> execute [
 
 	self target instanceSide inspectSubInstances
diff --git a/src/Spec2-Commands/SpCancelChangesCommand.class.st b/src/Spec2-Commands/SpCancelChangesCommand.class.st
index 6a99e78cc..fd8931a7b 100644
--- a/src/Spec2-Commands/SpCancelChangesCommand.class.st
+++ b/src/Spec2-Commands/SpCancelChangesCommand.class.st
@@ -1,27 +1,29 @@
 Class {
-	#name : #SpCancelChangesCommand,
-	#superclass : #SpToolCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpCancelChangesCommand',
+	#superclass : 'SpToolCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpCancelChangesCommand class >> defaultIconName [
 	^#smallCancel
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpCancelChangesCommand class >> defaultName [
 
 	^ 'Cancel'
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpCancelChangesCommand class >> defaultShortcutKey [
 
 	^ $l command mac | $l ctrl win | $l ctrl unix
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpCancelChangesCommand >> execute [
 	
 	self context triggerResetAction
diff --git a/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st b/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st
index 09c32b05c..ce3d99ffb 100644
--- a/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st
+++ b/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st
@@ -2,12 +2,14 @@
 My subclasses implement commands related to the live system discovery and exploration.
 "
 Class {
-	#name : #SpSystemDiscoveryCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpSystemDiscoveryCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpSystemDiscoveryCommand class >> defaultIconName [
 	^ #smallObjects
 ]
diff --git a/src/Spec2-Commands/SpSystemNavigationCommand.class.st b/src/Spec2-Commands/SpSystemNavigationCommand.class.st
index 491ff3e4e..b7b5e4dfa 100644
--- a/src/Spec2-Commands/SpSystemNavigationCommand.class.st
+++ b/src/Spec2-Commands/SpSystemNavigationCommand.class.st
@@ -5,22 +5,24 @@ I give a selector from a context that must:
 - evaluate to a string or symbol
 "
 Class {
-	#name : #SpSystemNavigationCommand,
-	#superclass : #SpToolCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpSystemNavigationCommand',
+	#superclass : 'SpToolCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpSystemNavigationCommand class >> defaultIconName [
 	^#smallSystemBrowser 
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpSystemNavigationCommand class >> defaultName [
 	^'Browse ', self shortName 
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 SpSystemNavigationCommand class >> documentContextRequiredSelectors [
 	"Using a String and not a Symbol because `RBBrowserEnvironmentTest>>#testMatches` fails 
 	 if answering a symbol (because it detects the referenced selector)"
@@ -28,24 +30,24 @@ SpSystemNavigationCommand class >> documentContextRequiredSelectors [
 	^ #('environment')
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpSystemNavigationCommand class >> shortName [
 	^self subclassResponsibility 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpSystemNavigationCommand >> environment [
 
 	^ self context environment
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpSystemNavigationCommand >> selector [
 
 	^ self target trimBoth asSymbol
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpSystemNavigationCommand >> systemNavigation [
 
 	^ self context systemNavigation
diff --git a/src/Spec2-Commands/SpSystemSelectionCommand.class.st b/src/Spec2-Commands/SpSystemSelectionCommand.class.st
index a8fe3dc5c..46bae7f1c 100644
--- a/src/Spec2-Commands/SpSystemSelectionCommand.class.st
+++ b/src/Spec2-Commands/SpSystemSelectionCommand.class.st
@@ -2,18 +2,20 @@
 A base for commands working on current text selection.
 "
 Class {
-	#name : #SpSystemSelectionCommand,
-	#superclass : #SpSystemNavigationCommand,
-	#category : #'Spec2-Commands-Navigation'
+	#name : 'SpSystemSelectionCommand',
+	#superclass : 'SpSystemNavigationCommand',
+	#category : 'Spec2-Commands-Navigation',
+	#package : 'Spec2-Commands',
+	#tag : 'Navigation'
 }
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 SpSystemSelectionCommand class >> documentContextRequiredSelectors [
 
 	^ super documentContextRequiredSelectors, #(selectedTextOrLine)
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 SpSystemSelectionCommand >> evaluate: aString ifError: aBlock [
 
 	^ [
@@ -27,7 +29,7 @@ SpSystemSelectionCommand >> evaluate: aString ifError: aBlock [
 	
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 SpSystemSelectionCommand >> selectedSelector [
 	| node selection |
 	
@@ -41,7 +43,7 @@ SpSystemSelectionCommand >> selectedSelector [
 	^ selection trimmed asSymbol
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpSystemSelectionCommand >> selectedTextOrLine [
 
 	^ self context selectedTextOrLine
diff --git a/src/Spec2-Commands/SpTextCopyCommand.class.st b/src/Spec2-Commands/SpTextCopyCommand.class.st
index 905b2d017..4b27b12f6 100644
--- a/src/Spec2-Commands/SpTextCopyCommand.class.st
+++ b/src/Spec2-Commands/SpTextCopyCommand.class.st
@@ -1,21 +1,23 @@
 Class {
-	#name : #SpTextCopyCommand,
-	#superclass : #SpTextEditionCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextCopyCommand',
+	#superclass : 'SpTextEditionCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpTextCopyCommand class >> defaultIconName [
 	^#smallCopy
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextCopyCommand class >> defaultName [
 
 	^ 'Copy'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextCopyCommand class >> defaultShortcutKey [
 
 	^ $c command mac 
@@ -23,7 +25,7 @@ SpTextCopyCommand class >> defaultShortcutKey [
 		| $c control unix
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpTextCopyCommand >> execute [
 
 	context doTextCopy
diff --git a/src/Spec2-Commands/SpTextCutCommand.class.st b/src/Spec2-Commands/SpTextCutCommand.class.st
index d54ba7d35..32468ad8d 100644
--- a/src/Spec2-Commands/SpTextCutCommand.class.st
+++ b/src/Spec2-Commands/SpTextCutCommand.class.st
@@ -1,21 +1,23 @@
 Class {
-	#name : #SpTextCutCommand,
-	#superclass : #SpTextEditionCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextCutCommand',
+	#superclass : 'SpTextEditionCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpTextCutCommand class >> defaultIconName [
 	^#smallCut 
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextCutCommand class >> defaultName [
 
 	^ 'Cut'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextCutCommand class >> defaultShortcutKey [
 
 	^ $x command mac 
@@ -23,7 +25,7 @@ SpTextCutCommand class >> defaultShortcutKey [
 		| $x control unix
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpTextCutCommand >> execute [
 
 	context doTextCut
diff --git a/src/Spec2-Commands/SpTextEditionCommand.class.st b/src/Spec2-Commands/SpTextEditionCommand.class.st
index 1365450ac..9a7d8d442 100644
--- a/src/Spec2-Commands/SpTextEditionCommand.class.st
+++ b/src/Spec2-Commands/SpTextEditionCommand.class.st
@@ -3,18 +3,20 @@ I'm a base command for edition in code presenters.
 Operations like ""copy"", ""paste"" will be implemented by extending me. 
 "
 Class {
-	#name : #SpTextEditionCommand,
-	#superclass : #SpToolCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextEditionCommand',
+	#superclass : 'SpToolCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpTextEditionCommand class >> allOrdered [
 
 	^ self allSubclasses sorted: #order ascending
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpTextEditionCommand class >> order [
 	"at the end by default"
 
diff --git a/src/Spec2-Commands/SpTextFindCommand.class.st b/src/Spec2-Commands/SpTextFindCommand.class.st
index 7f6ca7647..89d399ca1 100644
--- a/src/Spec2-Commands/SpTextFindCommand.class.st
+++ b/src/Spec2-Commands/SpTextFindCommand.class.st
@@ -1,16 +1,18 @@
 Class {
-	#name : #SpTextFindCommand,
-	#superclass : #SpTextSearchCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextFindCommand',
+	#superclass : 'SpTextSearchCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextFindCommand class >> defaultIconName [
 
 	^ #smallFind
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpTextFindCommand class >> defaultShortcutKey [
 
 	^ $f command mac 
@@ -18,7 +20,7 @@ SpTextFindCommand class >> defaultShortcutKey [
 		| $f control win
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpTextFindCommand >> execute [
 
 	context doTextFind
diff --git a/src/Spec2-Commands/SpTextPasteCommand.class.st b/src/Spec2-Commands/SpTextPasteCommand.class.st
index 554e889d8..0883ef35b 100644
--- a/src/Spec2-Commands/SpTextPasteCommand.class.st
+++ b/src/Spec2-Commands/SpTextPasteCommand.class.st
@@ -1,21 +1,23 @@
 Class {
-	#name : #SpTextPasteCommand,
-	#superclass : #SpTextEditionCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextPasteCommand',
+	#superclass : 'SpTextEditionCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpTextPasteCommand class >> defaultIconName [
 	^#smallPaste
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextPasteCommand class >> defaultName [
 
 	^ 'Paste'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextPasteCommand class >> defaultShortcutKey [
 
 	^ $v command mac 
@@ -23,7 +25,7 @@ SpTextPasteCommand class >> defaultShortcutKey [
 		| $v control unix
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpTextPasteCommand >> execute [
 
 	context doTextPaste
diff --git a/src/Spec2-Commands/SpTextSearchCommand.class.st b/src/Spec2-Commands/SpTextSearchCommand.class.st
index 0528ac9fc..bc72348cb 100644
--- a/src/Spec2-Commands/SpTextSearchCommand.class.st
+++ b/src/Spec2-Commands/SpTextSearchCommand.class.st
@@ -1,22 +1,24 @@
 Class {
-	#name : #SpTextSearchCommand,
-	#superclass : #SpToolCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextSearchCommand',
+	#superclass : 'SpToolCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpTextSearchCommand class >> allOrdered [
 
 	^ self allSubclasses sorted: #order ascending
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextSearchCommand class >> defaultName [
 
 	^ 'Find'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpTextSearchCommand class >> order [
 	"at the end by default"
 
diff --git a/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st b/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st
index 906713ddb..764e54445 100644
--- a/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st
+++ b/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st
@@ -1,21 +1,23 @@
 Class {
-	#name : #SpTextSelectAndPasteCommand,
-	#superclass : #SpTextEditionCommand,
-	#category : #'Spec2-Commands-Code'
+	#name : 'SpTextSelectAndPasteCommand',
+	#superclass : 'SpTextEditionCommand',
+	#category : 'Spec2-Commands-Code',
+	#package : 'Spec2-Commands',
+	#tag : 'Code'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpTextSelectAndPasteCommand class >> defaultIconName [
 	^#smallCopy 
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpTextSelectAndPasteCommand class >> defaultName [
 
 	^ 'Paste...'
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 SpTextSelectAndPasteCommand >> execute [
 
 	context doTextSelectAndPaste
diff --git a/src/Spec2-Commands/SpToolCommand.class.st b/src/Spec2-Commands/SpToolCommand.class.st
index 53d6ab18a..b687ac7b2 100644
--- a/src/Spec2-Commands/SpToolCommand.class.st
+++ b/src/Spec2-Commands/SpToolCommand.class.st
@@ -4,15 +4,17 @@ My children will define actions that can be executed as part of the Pharo System
 
 "
 Class {
-	#name : #SpToolCommand,
-	#superclass : #CmCommand,
+	#name : 'SpToolCommand',
+	#superclass : 'CmCommand',
 	#instVars : [
 		'transform'
 	],
-	#category : #'Spec2-Commands-Presenters'
+	#category : 'Spec2-Commands-Presenters',
+	#package : 'Spec2-Commands',
+	#tag : 'Presenters'
 }
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 SpToolCommand class >> addDocumentContextRequiredSelectors: aBuilder [
 	| requiredSelectors |
 
@@ -32,24 +34,24 @@ SpToolCommand class >> addDocumentContextRequiredSelectors: aBuilder [
 			aBuilder text: '(No required API is defined)' ]
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpToolCommand class >> defaultIconName [
 	^nil
 ]
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 SpToolCommand class >> defaultShortcutKey [
 
 	^ nil
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 SpToolCommand class >> documentContextRequiredSelectors [
 
 	^ #()
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 SpToolCommand class >> shortName [
 	"For menus some commands can implement this helper to provide shorter names.
 	Example: default name = 'Browse Command', short name = 'command'.
@@ -58,7 +60,7 @@ SpToolCommand class >> shortName [
 	^ self defaultName
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 SpToolCommand >> asSpecCommand [
 	| command |
 	
@@ -72,37 +74,37 @@ SpToolCommand >> asSpecCommand [
 	^ SpToolCurrentApplicationCommand decorate: command
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpToolCommand >> defaultIconName [
 	^self class defaultIconName
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 SpToolCommand >> initialize [
 
 	super initialize.
 	transform := [ :aContext | aContext ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpToolCommand >> shortcutKey [
 
 	^ self class defaultShortcutKey
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpToolCommand >> target [
 
 	^ self transform value: self context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpToolCommand >> transform [
 
 	^ transform
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 SpToolCommand >> transform: aBlock [
 
 	transform := aBlock
diff --git a/src/Spec2-Commands/SpToolCurrentApplication.class.st b/src/Spec2-Commands/SpToolCurrentApplication.class.st
index 256211b8e..00a0975c2 100644
--- a/src/Spec2-Commands/SpToolCurrentApplication.class.st
+++ b/src/Spec2-Commands/SpToolCurrentApplication.class.st
@@ -3,7 +3,9 @@ A dynamic variable to keep current executing application while executing a tool
 It helps to transmit the ongoing application (taken from the tool command context) to deeper in the system navigation.
 "
 Class {
-	#name : #SpToolCurrentApplication,
-	#superclass : #DynamicVariable,
-	#category : #'Spec2-Commands-Presenters'
+	#name : 'SpToolCurrentApplication',
+	#superclass : 'DynamicVariable',
+	#category : 'Spec2-Commands-Presenters',
+	#package : 'Spec2-Commands',
+	#tag : 'Presenters'
 }
diff --git a/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st b/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st
index 4b449a07d..0893ce0fe 100644
--- a/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st
+++ b/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st
@@ -2,18 +2,20 @@
 A decorator to wrap command on current application dynamic variable.
 "
 Class {
-	#name : #SpToolCurrentApplicationCommand,
-	#superclass : #CmCommandDecorator,
-	#category : #'Spec2-Commands-Presenters'
+	#name : 'SpToolCurrentApplicationCommand',
+	#superclass : 'CmCommandDecorator',
+	#category : 'Spec2-Commands-Presenters',
+	#package : 'Spec2-Commands',
+	#tag : 'Presenters'
 }
 
-{ #category : #'reflective operations' }
+{ #category : 'reflective operations' }
 SpToolCurrentApplicationCommand >> doesNotUnderstand: aMessage [
 
 	^ aMessage sendTo: self decoratedCommand
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 SpToolCurrentApplicationCommand >> execute [
 
 	SpToolCurrentApplication 
diff --git a/src/Spec2-Commands/package.st b/src/Spec2-Commands/package.st
index 692037b27..904485a3a 100644
--- a/src/Spec2-Commands/package.st
+++ b/src/Spec2-Commands/package.st
@@ -1 +1 @@
-Package { #name : #'Spec2-Commands' }
+Package { #name : 'Spec2-Commands' }