Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r1171 -r1173
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 1171)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 1173)
@@ -62,7 +62,7 @@
 		set Type = ..Type(InternalName) 
 		if Type = "class" {
 			set Class = ##class(%Dictionary.ClassDefinition).%OpenId(..StripExtension(InternalName))
-			if $isObject(Class) Set IsSystemCode = ( Class.System = 1 )
+			if $isObject(Class) Set IsSystemCode = Class.System
 		}
 	}