Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1189 -r1216
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1189)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1216)
@@ -107,10 +107,15 @@
 	if $length(Filter.BeginnendMet) > 0 {
 		set Valid = ##class(TECH.StringUtils).StartsWith(Property.Name,Filter.BeginnendMet)
 	}
-	if ( Valid ) && ( $length(Filter.SkipPrivate) ) {
-		set Valid = ( Filter.SkipPrivate = 'Property.Private ) 
+	if ( Valid ) && ($length(Filter.SkipPrivate)) {
+		set Valid = (Filter.SkipPrivate = 'Property.Private)
 	}
-	
+	If ( Valid ) && (Filter.SkipSystem){
+		Set Valid = '(Property.Name["%")
+	}	
+	If ( Valid ) && ($length(Filter.SkipReadOnly) ){
+		Set Valid = (Filter.SkipReadOnly = 'Property.ReadOnly)
+	}	
 	quit Valid
 ]]></Implementation>
 </Method>