diff --git a/src/NewTools-CodeCritiques/StSingleCritiqueResultListPresenter.class.st b/src/NewTools-CodeCritiques/StSingleCritiqueResultListPresenter.class.st
index d1f6d10d..8a42b21e 100644
--- a/src/NewTools-CodeCritiques/StSingleCritiqueResultListPresenter.class.st
+++ b/src/NewTools-CodeCritiques/StSingleCritiqueResultListPresenter.class.st
@@ -341,7 +341,10 @@ StSingleCritiqueResultListPresenter >> isCritiqueToDo [
 { #category : 'initialization' }
 StSingleCritiqueResultListPresenter >> newSourceCodeCritique [
 	
-	^ SpCodePresenter new beNotEditable.
+	^ SpCodePresenter new 
+		beNotEditable;
+		withoutSyntaxHighlight;
+		yourself
 ]
 
 { #category : 'initialization' }
@@ -414,10 +417,13 @@ StSingleCritiqueResultListPresenter >> setTextModelForClassOrMethod: aCritique [
 	entity := aCritique sourceAnchor entity.
 	self flag:
 		'Another hack. We need a better way to display entities (because now we may get not only classes and methods. Maybe something like GTInspector presentations could work)'.
-	sourceCodeModel text: entity asString.
-	sourceCodeModel behavior: (entity isCompiledMethod
+	sourceCodeModel beForBehavior: (entity isCompiledMethod
 			 ifTrue: [ entity methodClass ]
 			 ifFalse: [ nil ]).
+
+	sourceCodeModel 
+		withSyntaxHighlight;
+		text: entity asString.
 	aCritique sourceAnchor providesInterval ifTrue: [ 
 		sourceCodeModel selectionInterval: aCritique sourceAnchor interval ]
 ]
@@ -429,8 +435,10 @@ StSingleCritiqueResultListPresenter >> setTextModelForNil [
 	text := rule rationale isEmpty
 		        ifTrue: [ rule name ]
 		        ifFalse: [ rule rationale ].
-	sourceCodeModel text: text.
-	sourceCodeModel behavior: nil.
+	sourceCodeModel 
+		withoutSyntaxHighlight;
+		text: text;
+		behavior: nil.
 	toolbarModel critique: nil
 ]