Index: /trunk/Include/Classes/ActiveBasic/Core/InterfaceInfo.ab
===================================================================
--- /trunk/Include/Classes/ActiveBasic/Core/InterfaceInfo.ab	(revision 353)
+++ /trunk/Include/Classes/ActiveBasic/Core/InterfaceInfo.ab	(revision 354)
@@ -4,9 +4,8 @@
 
 Class InterfaceInfo
-	' No Inherits
 	__this As VoidPtr
 	__vtbl As VoidPtr
 Public
-	Sub ITest( pThis As VoidPtr, pVtbl As VoidPtr )
+	Sub InterfaceInfo( pThis As VoidPtr, pVtbl As VoidPtr )
 		__this = pThis
 		__vtbl = pVtbl