From ae5cd03d119ddc8bb03f7e511ac4f286a899d5df Mon Sep 17 00:00:00 2001
From: Alistair Grant <alistairgrant@fastmail.com.au>
Date: Tue, 15 Oct 2024 10:48:06 +0200
Subject: [PATCH] [feenkcom/gtoolkit#4072] Automated refactoring

---
 .../GtEpEventSequencerExamples.class.st               |  7 +++++++
 src/GToolkit4Epicea/GtEpReplayBehaviorModel.class.st  | 11 ++++++-----
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/src/GToolkit4Epicea/GtEpEventSequencerExamples.class.st b/src/GToolkit4Epicea/GtEpEventSequencerExamples.class.st
index d80031c..cabceb2 100644
--- a/src/GToolkit4Epicea/GtEpEventSequencerExamples.class.st
+++ b/src/GToolkit4Epicea/GtEpEventSequencerExamples.class.st
@@ -52,6 +52,13 @@ GtEpEventSequencerExamples class >> testDataRoot [
 		/ self name.
 ]
 
+{ #category : #asserting }
+GtEpEventSequencerExamples >> assert: actual equals: expected [
+	^ self
+		assert: (actual sameContentAs: expected)
+		description: [ self comparingStringBetween: actual and: expected ]
+]
+
 { #category : #examples }
 GtEpEventSequencerExamples >> behaviorRenameWithoutDependentsForExport [
 	"Check that adding a class and method when the required superclass / class is missing is sequenced correctly."
diff --git a/src/GToolkit4Epicea/GtEpReplayBehaviorModel.class.st b/src/GToolkit4Epicea/GtEpReplayBehaviorModel.class.st
index 07ebe68..f3e86e4 100644
--- a/src/GToolkit4Epicea/GtEpReplayBehaviorModel.class.st
+++ b/src/GToolkit4Epicea/GtEpReplayBehaviorModel.class.st
@@ -270,11 +270,12 @@ GtEpReplayBehaviorModel >> inheritedFrom: aBehavior [
 GtEpReplayBehaviorModel >> inheritedFrom: aBehavior modifiedAfter: aDateAndTime [
 	"Answer a boolean indicating whether the receiver inherited from aBehavior at any time in its history"
 
-	^ (self inheritsFrom: aBehavior) or:
-		[ entries anySatisfy: [ :entry |
-			entry content isEpClassModification and: 
-			[ entry content behaviorAffected superclassName = aBehavior name and:
-			[ entry gtTime > aDateAndTime ] ] ] ]
+	^ (self inheritsFrom: aBehavior)
+		or: [ entries
+				anySatisfy: [ :entry | 
+					entry content isEpClassModification
+						and: [ (entry content behaviorAffected superclassName sameContentAs: aBehavior name)
+								and: [ entry gtTime > aDateAndTime ] ] ] ]
 ]
 
 { #category : #accessing }