Index: /Include/Classes/System/Threading/Thread.ab
===================================================================
--- /Include/Classes/System/Threading/Thread.ab	(revision 233)
+++ /Include/Classes/System/Threading/Thread.ab	(revision 234)
@@ -184,4 +184,18 @@
 
 	Sub ~_System_CThreadCollection()
+		Dim i As Long
+		For i=0 To ELM(ThreadNum)
+			If ppobj_Thread[i] Then
+				If i = 0 Then
+					Delete ppobj_Thread[i]
+				End If
+				ppobj_Thread[i]=0
+				pStackBase[i]=0
+				Delete ppException[i]
+				ppException[i]=0
+				Exit For
+			End If
+		Next
+
 		HeapFree(_System_hProcessHeap,0,pStackBase)
 		pStackBase=0