Index: APPS/Halux/PPS/ALUFrees/impl/Machine/Tool.cls.xml
===================================================================
diff -u -r29059 -r58560
--- APPS/Halux/PPS/ALUFrees/impl/Machine/Tool.cls.xml	(.../Tool.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/ALUFrees/impl/Machine/Tool.cls.xml	(.../Tool.cls.xml)	(revision 58560)
@@ -133,8 +133,7 @@
 	#dim it As TECH.ListIterator =..GeefElementIterator()
 	while it.HasNext() {
 		#dim Element As APPS.Halux.PPS.ALUFrees.impl.Machine.ToolElement = it.Next()
-		Set Result = Result _ Element.ToolType _ Element.Diameter _ $select(it.HasNext():";",1:"")
-	}
+		Set Result = Result _ Element.ToolType _ " DIA:"_Element.Diameter_ " NL:"_Element.NuttigeLengte _ " ED:"_Element.ExtraDiepte _ $select(it.HasNext():";",1:"")	}
 	Quit Result
 ]]></Implementation>
 </Method>