diff --git a/src/NewTools-Debugger/StDebuggerMethodImplementorPresenter.class.st b/src/NewTools-Debugger/StDebuggerMethodImplementorPresenter.class.st
index 1ada18ea..8342997d 100644
--- a/src/NewTools-Debugger/StDebuggerMethodImplementorPresenter.class.st
+++ b/src/NewTools-Debugger/StDebuggerMethodImplementorPresenter.class.st
@@ -57,9 +57,14 @@ StDebuggerMethodImplementorPresenter >> addProtocolsFrom: aClassOrTrait [
 	(aClassOrTrait isTrait
 		 ifTrue: [ aClassOrTrait protocols ]
 		 ifFalse: [
-			 (aClassOrTrait withAllSuperclasses copyWithoutAll: {
-					  Object.
-					  ProtoObject }) flatCollect: #protocols ]) do: [ :protocol |
+				 (aClassOrTrait withAllSuperclasses copyWithoutAll: {
+						  Object.
+						  ProtoObject.
+						  Class.
+						  Behavior.
+						  ClassDescription.
+						  Object class.
+						  ProtoObject class }) flatCollect: #protocols ]) do: [ :protocol |
 		allProtocolsWithDuplicates at: protocol name put: protocol ].
 	self addProtocols: allProtocolsWithDuplicates values
 ]