Tlist.remove() does not remove

This works so, I guess, it's not list.remove that's failing...

SuperStrict
Type ttest
	Global list:tlist = CreateList()
	Function create()
		Local my:ttest = New ttest
		ListAddLast list , my
	End Function
	Method remove()
		Print "Before remove: List contains "+list.count()+" entities"
		If Not ListContains( list,Self ) Then 
			Print " - List claims to not contain the entity..."
			Print " -- Requesting a remove: "+ self.tostring()
			Print " -- In list:"
			For Local e:ttest = EachIn list
				If e.ToString() = self.ToString()
					Print " --- "+e.ToString()+" <-"
				Else
					Print " --- "+e.ToString()	
				EndIf
			Next
		EndIf
		list.remove(Self)
		Print CountList(list)
	End Method
End Type
For Local x:Int = 1 To 5
	ttest.create()
Next
For Local all:ttest = EachIn ttest.list
	all.remove()
Next

Is it at all possible to post a simple, self-contained example of code which causes the problem?
<edited> to include your code.