Index: Tools/SQLExporter/impl/Privileges.cls.xml
===================================================================
diff -u -r3174 -r3825
--- Tools/SQLExporter/impl/Privileges.cls.xml	(.../Privileges.cls.xml)	(revision 3174)
+++ Tools/SQLExporter/impl/Privileges.cls.xml	(.../Privileges.cls.xml)	(revision 3825)
@@ -96,10 +96,10 @@
 <Implementation><![CDATA[
 	set Gedefinieerd = 0
 	set TableNode = ..GeefType()_","_TableName
-	if $data(^mpriv(0,TableNode,"s",..Gebruiker))>0 {
+	if $data(^mpriv(0,TableNode,Type,..Gebruiker))>0 {
 		set Gedefinieerd = 1
-		set GrantIndex = $order(^mpriv(0,TableNode,"s",..Gebruiker,""))
-		set Privilege = $select(^mpriv(0,TableNode,"s",..Gebruiker,GrantIndex):2,1:1)
+		set GrantIndex = $order(^mpriv(0,TableNode,Type,..Gebruiker,""))
+		set Privilege = $select(^mpriv(0,TableNode,Type,..Gebruiker,GrantIndex):2,1:1)
 	}
 	quit Gedefinieerd
 ]]></Implementation>