Index: svn/Helper.cls.xml
===================================================================
diff -u -r1529 -r1531
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1529)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1531)
@@ -341,7 +341,8 @@
 	} 	
 	elseif ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
 		if ##class(TECH.SourceCodeUtils).Exists(InternalName) { 
-			do $system.OBJ.Delete(InternalName) 
+			do $system.OBJ.Delete(InternalName)
+			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(InternalName))   
 		}
 	} 
 	else {
@@ -363,8 +364,8 @@
 	while rs.Next() {
 		set Name = rs.GetData(1)
 		if $extract(Name,1,$length(InternalName))=InternalName {
-			write !,"Deleting class : "_Name,!
 			do $system.OBJ.Delete(Name)
+			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(Name))   
 		}
 	}
 	quit