Index: TECH/Stack.cls.xml
===================================================================
diff -u -r9 -r1307
--- TECH/Stack.cls.xml	(.../Stack.cls.xml)	(revision 9)
+++ TECH/Stack.cls.xml	(.../Stack.cls.xml)	(revision 1307)
@@ -1,34 +1,32 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Stack">
-<Description>
-Stack van elementen.</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Stack">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="Push">
-<FormalSpec>Element:%String</FormalSpec>
+<FormalSpec>Element:%CacheString</FormalSpec>
 <Implementation><![CDATA[	Do ..Stack.InsertAt(Element, 1)
 ]]></Implementation>
 </Method>
 
 <Method name="Pop">
-<ReturnType>%String</ReturnType>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	Set Popped = ..Stack.GetAt(1)
+	#dim Popped As %CacheString= ..Stack.GetAt(1)
 	Do ..Stack.RemoveAt(1)
 	Quit Popped
 ]]></Implementation>
 </Method>
 
 <Method name="Peek">
-<ReturnType>%String</ReturnType>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[	Quit ..Stack.GetAt(1)
 ]]></Implementation>
 </Method>
@@ -45,6 +43,7 @@
 </Method>
 
 <Method name="Count">
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..Stack.Count()
 ]]></Implementation>
 </Method>