Index: /trunk/Include/system/exception.ab
===================================================================
--- /trunk/Include/system/exception.ab	(revision 374)
+++ /trunk/Include/system/exception.ab	(revision 375)
@@ -128,8 +128,5 @@
 
 		Dim addressOfCatch = pTryLayer->ResolveCatchesOverload( ex ) As LONG_PTR
-		If addressOfCatch Then
-			' スレッドへThrow処理が終了した（Catchされた）ことを通知
-			Thread.CurrentThread().__Catched()
-		Else
+		If addressOfCatch = NULL Then
 			' Catchが定義されていないときはFinallyへ誘導
 			addressOfCatch = pTryLayer->addressOfFinally As LONG_PTR
Index: /trunk/TestCase/SimpleTestCase/ExceptionTest.ab
===================================================================
--- /trunk/TestCase/SimpleTestCase/ExceptionTest.ab	(revision 375)
+++ /trunk/TestCase/SimpleTestCase/ExceptionTest.ab	(revision 375)
@@ -0,0 +1,35 @@
+Namespace ExceptionTest
+
+Sub BadProc()
+	Throw New String("hello! I am bad proc.")
+End Sub
+
+Sub TestMain()
+	Dim resultOfTest1 = False As Boolean
+	Dim resultOfTest2 = False As Boolean
+	Dim resultOfTest3 = False As Boolean
+	Try
+		Try
+			BadProc()
+		Finally
+			resultOfTest1 = True
+		End Try
+	Catch msg As String
+		' msgの受け渡しが未完成
+		If msg = "hello! I am bad proc." Then
+			resultOfTest2 = True
+		End If
+	Catch
+		System.Diagnostics.Trace.WriteLine( "Catchが実行された。ここに来るのは正しくない" )
+	Finally
+		resultOfTest3 = True
+	End Try
+
+	UnitTest( "Exception1", resultOfTest1 )
+	UnitTest( "Exception2", resultOfTest2 )
+	UnitTest( "Exception3", resultOfTest3 )
+End Sub
+
+End Namespace
+
+ExceptionTest.TestMain()
Index: /trunk/TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- /trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 374)
+++ /trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 375)
@@ -28,4 +28,6 @@
 #include "InterfaceTest.ab"
 _ClearNamespaceImported
+#include "ExceptionTest.ab"
+_ClearNamespaceImported
 
 'リソースファイル
Index: /trunk/TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- /trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 374)
+++ /trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 375)
@@ -39,2 +39,3 @@
 DelegateTest.ab
 InterfaceTest.ab
+ExceptionTest.ab