Index: TECH/GlobalIterator.cls.xml
===================================================================
diff -u -r1408 -r1613
--- TECH/GlobalIterator.cls.xml	(.../GlobalIterator.cls.xml)	(revision 1408)
+++ TECH/GlobalIterator.cls.xml	(.../GlobalIterator.cls.xml)	(revision 1613)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.GlobalIterator">
-<Abstract>1</Abstract>
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
 <Parameter name="DefaultStartPos">
@@ -38,12 +37,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>GlobalNaam:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	if $length(GlobalNaam) set ..Global = GlobalNaam
+	
 	If $Data(@..Global) = 0 {
 		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De global " _ ..Global _ " bestaat niet.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)