Index: zTryout/KCA/TesUniekeIndex.cls.xml
===================================================================
diff -u
--- zTryout/KCA/TesUniekeIndex.cls.xml	(revision 0)
+++ zTryout/KCA/TesUniekeIndex.cls.xml	(revision 38738)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.TesUniekeIndex">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="DoTheTest">
+<Implementation><![CDATA[
+	#dim MyClassWithUniqueIndex As zTryout.KCA.ClassWithUniqueIndex = ##class(zTryout.KCA.ClassWithUniqueIndex).%New()
+	Set MyClassWithUniqueIndex.Name = "1"
+	Set MyClassWithUniqueIndex.UniqueIndex = 1
+	Do MyClassWithUniqueIndex.Save()
+	w !,"save unique index 1"
+
+	#dim MyClassWithUniqueIndex2 As zTryout.KCA.ClassWithUniqueIndex = ##class(zTryout.KCA.ClassWithUniqueIndex).%New()
+	Set MyClassWithUniqueIndex2.Name = "2"
+	Do MyClassWithUniqueIndex2.Save()
+	w !,"save unique index <NULL>"
+
+	#dim MyClassWithUniqueIndex3 As zTryout.KCA.ClassWithUniqueIndex = ##class(zTryout.KCA.ClassWithUniqueIndex).%New()
+	Set MyClassWithUniqueIndex3.Name = "3"
+	Do MyClassWithUniqueIndex3.Save()
+	w !,"save unique index <NULL>"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/KCA/ClassWithUniqueIndex.cls.xml
===================================================================
diff -u
--- zTryout/KCA/ClassWithUniqueIndex.cls.xml	(revision 0)
+++ zTryout/KCA/ClassWithUniqueIndex.cls.xml	(revision 38738)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.ClassWithUniqueIndex">
+<Owner>_PUBLIC</Owner>
+<SqlTableName>ClassWithUniqueIndex</SqlTableName>
+<Super>TECH.Persistent</Super>
+
+<Property name="Name">
+<Type>%String</Type>
+</Property>
+
+<Property name="UniqueIndex">
+<Type>%Integer</Type>
+</Property>
+
+<Index name="MyUniqueIndex">
+<Properties>UniqueIndex</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.KCA.ClassWithUn4066D</DataLocation>
+<DefaultData>ClassWithUniqueIndexDefaultData</DefaultData>
+<IdLocation>^zTryout.KCA.ClassWithUn4066D</IdLocation>
+<IndexLocation>^zTryout.KCA.ClassWithUn4066I</IndexLocation>
+<StreamLocation>^zTryout.KCA.ClassWithUn4066S</StreamLocation>
+<Data name="ClassWithUniqueIndexDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>UniqueIndex</Value>
+</Value>
+<Value name="3">
+<Value>Name</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>