Index: Tools/MoveClass.cls.xml
===================================================================
diff -u -r1074 -r1422
--- Tools/MoveClass.cls.xml	(.../MoveClass.cls.xml)	(revision 1074)
+++ Tools/MoveClass.cls.xml	(.../MoveClass.cls.xml)	(revision 1422)
@@ -21,7 +21,10 @@
 
 <Method name="Move">
 <Description>
-Do ##class(Tools.MoveClass).%New().Move("zTryout.CSC.TestKlas3","zTryout.CSC.TestKlas2")</Description>
+Set cls="DUAL" 
+Do ##class(Tools.MoveClass).%New().Move("APPS.VisiDot."_cls,"APPS.VisiDot.dto."_cls)
+q
+Do ##class(Tools.MoveClass).%New().Move("APPS.VisiDot.DUAL","APPS.VisiDot.dto.DUAL")</Description>
 <FormalSpec>ClassFrom:%String,ClassTo:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Berichten = ""
Index: Tools/MovePackage.cls.xml
===================================================================
diff -u -r1074 -r1422
--- Tools/MovePackage.cls.xml	(.../MovePackage.cls.xml)	(revision 1074)
+++ Tools/MovePackage.cls.xml	(.../MovePackage.cls.xml)	(revision 1422)
@@ -7,7 +7,8 @@
 
 <Method name="Move">
 <Description>
-Do ##class(Tools.MovePackage).Move("zTryout.CSC.Timing","zTryout.CSC.TimingCopy")</Description>
+Do ##class(Tools.MovePackage).Move("zTryout.CSC.Timing","zTryout.CSC.TimingCopy")
+Do ##class(Tools.MovePackage).Move("APPS.VisiDot","APPS.VisiDot.dto")</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PackageFrom:%String,PackageTo:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -18,7 +19,7 @@
 		Set ClassNameFrom = ResultSet.Data("Name")
 		If (##class(TECH.StringUtils).StartsWith(ClassNameFrom,PackageFrom_"."))
 		{
-			Set ClassNameTo = PackageTo_$zobjclassmethod(ClassNameFrom,"%ClassName",0)
+			Set ClassNameTo = PackageTo_"."_$zobjclassmethod(ClassNameFrom,"%ClassName",0)
 			Do ##class(Tools.MoveClass).%New().Move(ClassNameFrom,ClassNameTo)
 		}
 	}