diff --git a/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
index 8f26d3a2d..b956650c4 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
@@ -176,6 +176,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuStackEditionsComman
 { #category : #tests }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationCommands [
 	|cmdGroup commands|
+
 	cmdGroup := builder stackContextNavigationCommands.
 	commands := cmdGroup allCommands
 		collect: [ :spCommand | spCommand decoratedCommand ].
@@ -184,12 +185,13 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationCommands [
 	
 	self assert: commands first class identicalTo: SpBrowseClassCommand.
 	self assert: commands first name equals: 'method'.
-	self assert: commands first context identicalTo: debugger stackTable selection selectedItem method.
+	"self assert: commands first context identicalTo: debugger stackTable selection selectedItem method."
+	self assert: commands first selector equals: #doBrowseClass.
 	
 	self assert: commands second class identicalTo: SpBrowseClassCommand.
 	self assert: commands second name equals: 'receiver'.
-	self assert: commands second context identicalTo: debugger stackTable selection selectedItem receiver class
-	
+	"self assert: commands second context identicalTo: debugger stackTable selection selectedItem receiver class"
+	self assert: commands second selector equals: #doBrowseReceiverClass.
 	
 ]