diff --git a/src/System-Changes/ChangeSet.class.st b/src/System-Changes/ChangeSet.class.st
index 09714a3c1b7..5c777b0d87f 100644
--- a/src/System-Changes/ChangeSet.class.st
+++ b/src/System-Changes/ChangeSet.class.st
@@ -1086,16 +1086,11 @@ ChangeSet >> hasPreamble [
 ChangeSet >> hasReportableSlip: aMethod [
 	"Answer whether the receiver contains anything that should be brought 
 	to the attention of the author when filing out. Customize the lists here 
-	to suit your preferences. If slips do not get reported in spite of your 
-	best efforts here, make certain that the Preference 'checkForSlips' is set 
-	to true."
+	to suit your preferences."
 
 	aMethod containsHalt ifTrue: [ ^true ].
-	#(#flag:) do: [ :aLit | (aMethod hasLiteral: aLit) ifTrue: [ ^ true ] ].
-	((aMethod literals 
-		select: #isVariableBinding
-		thenCollect: #key) includes: #Transcript) ifTrue: [ ^true ].
-	^ false
+	(aMethod sendsSelector: #flag:) ifTrue: [ ^ true ].
+	^aMethod readsRef: (Smalltalk globals associationAt: #Transcript)
 ]
 
 { #category : #initialization }