Index: /trunk/TestCase/SimpleTestCase/DelegateTest.ab
===================================================================
--- /trunk/TestCase/SimpleTestCase/DelegateTest.ab	(revision 342)
+++ /trunk/TestCase/SimpleTestCase/DelegateTest.ab	(revision 343)
@@ -39,7 +39,7 @@
 	End Sub
 
-	Sub Proc2()
+	Function Proc2() As Long
 		proc2Flag = True
-	End Sub
+	End Function
 
 	Sub Proc3or4( a As Long )