Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r59893 -r60150
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 59893)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 60150)
@@ -357,6 +357,24 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Snelheidstestje">
+<Implementation><![CDATA[
+	w !,$ZTIMESTAMP
+	
+	#dim temp As %Cachestring
+	#dim teller As %Integer = 0
+	for teller=0:1:100000 do
+	. set temp = $H
+	   
+	w !,$ZTIMESTAMP
+	
+	for teller=0:1:100000 do
+	. set temp = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+	   
+	w !,$ZTIMESTAMP
+]]></Implementation>
+</Method>
 </Class>