add a test. (I checked that it shows the problem before adding the fi…

…xed method)

src/TraitsV2-Tests/T2SubclassingTraitedClassTest.class.st

@@ -34,3 +34,12 @@ T2SubclassingTraitedClassTest >> testCreatingMethodInSubclass2 [
 	self assert: (c2 >> #asd) package name equals: 'TraitsV2-Tests'.
 	self assert: (c2 >> #asd) package equals: c2 package.
 ]
+
+{ #category : #tests }
+T2SubclassingTraitedClassTest >> testCreatingMethodInTraitClassSide [
+	| t1 c1 |
+	t1 := self newTrait: #T1 with: #() uses: {}.
+	t1 class compile: 'someObject ^#executingOverridenMethod'.	
+	c1 := self newClass: #C1 with: #() uses: t1.
+	self assert: c1 someObject equals: #executingOverridenMethod.
+]