Index: AXtools/AXifPackageCleaner.cls.xml
===================================================================
diff -u -r42580 -r42583
--- AXtools/AXifPackageCleaner.cls.xml	(.../AXifPackageCleaner.cls.xml)	(revision 42580)
+++ AXtools/AXifPackageCleaner.cls.xml	(.../AXifPackageCleaner.cls.xml)	(revision 42583)
@@ -21,8 +21,14 @@
 <Method name="Cleanup">
 <FormalSpec>RootPackage:%String</FormalSpec>
 <Implementation><![CDATA[
+	lock +^oddDEF:5
+	
+	if $$$Not($test) write !,"!!!!!!! Gelieve geen klasse in wijzig mode te hebben !!!!!!!"  quit
+		
 	do ..RemoveUnusedFiles(RootPackage)
 	do ..CleanupClasses(RootPackage)
+	
+	lock -^oddDEF
 ]]></Implementation>
 </Method>