Index: Tools/MovePackage.cls.xml
===================================================================
diff -u -r931 -r946
--- Tools/MovePackage.cls.xml	(.../MovePackage.cls.xml)	(revision 931)
+++ Tools/MovePackage.cls.xml	(.../MovePackage.cls.xml)	(revision 946)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 10:37:45">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 09:35:49">
 <Class name="Tools.MovePackage">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62160,38340.367545</TimeChanged>
+<TimeChanged>62164,34627.895877</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Move">
@@ -19,12 +19,12 @@
 		Set ClassNameFrom = ResultSet.Data("Name")
 		If (##class(TECH.StringUtils).StartsWith(ClassNameFrom,PackageFrom_"."))
 		{
-			Set ClassNameTo = PackageTo_$Extract(ClassNameFrom,$Length(PackageFrom)+1,$Length(ClassNameFrom))
+			Set ClassNameTo = PackageTo_$zobjclassmethod(ClassNameFrom,"%ClassName",0)
 			Do ##class(Tools.MoveClass).%New().Move(ClassNameFrom,ClassNameTo)
 		}
 	}
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="730760160"/>
+<Checksum value="1964902107"/>
 </Export>