Index: vhUnitTest/TECH/Integer/General/PersistentData.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Integer/General/PersistentData.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Integer/General/PersistentData.cls.xml	(revision 1774)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Integer.General.PersistentData">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Value">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest5AB6.PersistentDataD</DataLocation>
+<DefaultData>PersistentDataDefaultData</DefaultData>
+<IdLocation>^vhUnitTest5AB6.PersistentDataD</IdLocation>
+<IndexLocation>^vhUnitTest5AB6.PersistentDataI</IndexLocation>
+<StreamLocation>^vhUnitTest5AB6.PersistentDataS</StreamLocation>
+<Data name="PersistentDataDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Value</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/Integer.cls.xml
===================================================================
diff -u -r1771 -r1774
--- TECH/Integer.cls.xml	(.../Integer.cls.xml)	(revision 1771)
+++ TECH/Integer.cls.xml	(.../Integer.cls.xml)	(revision 1774)
@@ -57,11 +57,25 @@
 		Set %code = 0
 		Quit $$$OK
 	}
-	Do %code.WriteLine(" Set i%" _ %property _ " = ##class(TECH.Math).Round(Value,0)")
+	Do %code.WriteLine(" Set:$length(Value) i%" _ %property _ " = ##class(TECH.Math).Round(Value,0)")
 	Do %code.WriteLine(" Quit $$$OK")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="Get">
+<CodeMode>objectgenerator</CodeMode>
+<NoContext>1</NoContext>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (%compiledclass.ClassType = "datatype") {
+		Set %code = 0
+		Quit $$$OK
+	}
+	Do %code.WriteLine(" Quit $select($length(i%"_%property_"):##class(TECH.Math).Round(i%" _ %property_",0),1:"""")")
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/TECH/Integer/General/NormalisationTest.cls.xml
===================================================================
diff -u -r1771 -r1774
--- vhUnitTest/TECH/Integer/General/NormalisationTest.cls.xml	(.../NormalisationTest.cls.xml)	(revision 1771)
+++ vhUnitTest/TECH/Integer/General/NormalisationTest.cls.xml	(.../NormalisationTest.cls.xml)	(revision 1774)
@@ -28,6 +28,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Load from data -&gt; normalisation">
+<Implementation><![CDATA[
+	set ^vhUnitTest5AB6.PersistentDataD(1)=$listbuild("","1.1")
+		
+	set Persistent = ##class(vhUnitTest.TECH.Integer.General.PersistentData).%OpenId(1)
+	do $$$AssertEquals(Persistent.Value,1)
+		
+	kill ^vhUnitTest5AB6.PersistentDataD
+]]></Implementation>
+</Method>
+
 <Method name="AssertValue">
 <FormalSpec>Value:TECH.Integer,ExpectedValue:%String</FormalSpec>
 <Private>1</Private>