Index: TECH/OperatieScope.cls.xml
===================================================================
diff -u -r9 -r1012
--- TECH/OperatieScope.cls.xml	(.../OperatieScope.cls.xml)	(revision 9)
+++ TECH/OperatieScope.cls.xml	(.../OperatieScope.cls.xml)	(revision 1012)
@@ -10,7 +10,7 @@
 <Super>%RegisteredObject</Super>
 
 <Property name="%TechOperatieScopeHuidig">
-<Type>OperatieScope</Type>
+<Type>TECH.OperatieScope</Type>
 <Private>1</Private>
 </Property>
 
@@ -27,9 +27,9 @@
 <Method name="StartMetTx">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel=""</FormalSpec>
-<ReturnType>OperatieScope</ReturnType>
+<ReturnType>TECH.OperatieScope</ReturnType>
 <Implementation><![CDATA[
-		#dim Huidige As OperatieScope
+		#dim Huidige As TECH.OperatieScope
 		Set Huidige = ..StartIntern()
 		Do Huidige.StartTxScope(TxScopeOptie, TxIsolatieLevel)
 		Quit Huidige
@@ -38,10 +38,10 @@
 
 <Method name="StartZonderTx">
 <ClassMethod>1</ClassMethod>
-<ReturnType>OperatieScope</ReturnType>
+<ReturnType>TECH.OperatieScope</ReturnType>
 <Implementation><![CDATA[
 		
-		#dim Huidige As OperatieScope
+		#dim Huidige As TECH.OperatieScope
 		Set Huidige = ..StartIntern()
 		Do Huidige.ZetNiveauZonderTxScope()
 		Quit Huidige
@@ -51,9 +51,9 @@
 <Method name="StartIntern">
 <ClassMethod>1</ClassMethod>
 <Private>1</Private>
-<ReturnType>OperatieScope</ReturnType>
+<ReturnType>TECH.OperatieScope</ReturnType>
 <Implementation><![CDATA[
-		#dim Huidige As OperatieScope
+		#dim Huidige As TECH.OperatieScope
 		Set Huidige = ..Huidig()
 		
 		If ("" = Huidige) {
@@ -70,7 +70,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>OperatieScope</ReturnType>
 <Implementation><![CDATA[
-		#dim Huidige As OperatieScope
+		#dim Huidige As TECH.OperatieScope
 		Set Huidige = ""
 		
 		If ($data(%TechOperatieScopeHuidig) && $isobject(%TechOperatieScopeHuidig)) {
@@ -84,7 +84,7 @@
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set ..TxScopeStack = ##class(Stack).%New()
+		Set ..TxScopeStack = ##class(TECH.Stack).%New()
 		Set ..NestingNiveau = 0
 		Do ..OperatieGestart()
 		Set %TechOperatieScopeHuidig = ##this
@@ -167,7 +167,7 @@
 <Method name="CommitIndienTx">
 <Private>1</Private>
 <Implementation><![CDATA[
-		#dim TxScope As TxScope;
+		#dim TxScope As TECH.Concurrency.TxScope;
 		Set TxScope = ..TxScopeStack.Pop()
 		If ("" '= TxScope) {
 			Do TxScope.Commit()
@@ -178,7 +178,7 @@
 <Method name="RollbackIndienTx">
 <Private>1</Private>
 <Implementation><![CDATA[
-		#dim TxScope As TxScope;
+		#dim TxScope As TECH.Concurrency.TxScope;
 		Set TxScope = ..TxScopeStack.Pop()
 		If ("" '= TxScope) {
 			Do TxScope.Rollback()