Index: TECH/PubSub/EventSubscription.cls.xml
===================================================================
diff -u -r1074 -r2814
--- TECH/PubSub/EventSubscription.cls.xml	(.../EventSubscription.cls.xml)	(revision 1074)
+++ TECH/PubSub/EventSubscription.cls.xml	(.../EventSubscription.cls.xml)	(revision 2814)
@@ -23,6 +23,11 @@
 <Properties>EventType</Properties>
 </Index>
 
+<Index name="Unique">
+<Properties>EventType,RespondingClass,RespondingMethod</Properties>
+<Unique>1</Unique>
+</Index>
+
 <Method name="%OnNew">
 <FormalSpec>EventType:%String,RespondingClass:%String,RespondingMethod:%String</FormalSpec>
 <Private>1</Private>