diff --git a/SAS/OTDB/src/TreeMaintenance.cc b/SAS/OTDB/src/TreeMaintenance.cc
index a6716e7e6fc5d8b481478b320e8f68680d88fcbc..0df883bdb890a0539569ca5d6c0f73cf20b0ccfc 100644
--- a/SAS/OTDB/src/TreeMaintenance.cc
+++ b/SAS/OTDB/src/TreeMaintenance.cc
@@ -441,8 +441,7 @@ vector<OTDBnode> TreeMaintenance::getVTitemList (treeIDType	aTreeID,
 	uint32				resultSize = 0;
 
 	// loop through the levels and construct the vector
-	for (uint32 queryDepth = 1; queryDepth <= depth && !nodeList.empty(); 
-															++queryDepth) {
+	for (uint32 queryDepth = 1; queryDepth <= depth && !nodeList.empty(); ++queryDepth) {
 		// construct a query that calls a stored procedure.
 		string	query("SELECT * from getVTchildren('" +
 					toString(aTreeID) + "','" +
@@ -927,18 +926,13 @@ bool	TreeMaintenance::pruneTree(treeIDType	TODO_aTreeID,
 }
 
 //
-// exportTree(treeID, nodeID, filename, formattype, folded): bool
+// exportTree(treeID, nodeID, filename): bool
 //
-// Export a VIC (sub)tree to a file. The user may choose in which format
-// the tree is exported: HTML, KeyValue List.
+// Export a VIC (sub)tree to a file.
 bool	TreeMaintenance::exportTree (treeIDType			aTreeID,
 									 nodeIDType			topItem,
-									 const string&		filename,
-									 const formatType	TODO_outputFormat,
-									 bool				TODO_folded)
+									 const string&		filename)
 {
-	// TODO: implement outputformat and folded parameters
-
 	// Check connection
 	if (!itsConn->connect()) {
 		itsError = itsConn->errorMsg();
@@ -947,9 +941,7 @@ bool	TreeMaintenance::exportTree (treeIDType			aTreeID,
 
 	LOG_TRACE_FLOW_STR("TM:exportTree(" << aTreeID << ","
 										<< topItem << ","
-										<< filename << ","
-										<< TODO_outputFormat << ","
-										<< toString(TODO_folded) << ")");
+										<< filename << ")");
 
 	work	xAction(*(itsConn->getConn()), "exportFile");
 	try {
@@ -980,6 +972,50 @@ bool	TreeMaintenance::exportTree (treeIDType			aTreeID,
 	return (false);
 }
 
+//
+// exportResultTree(treeID, nodeID, filename): bool
+//
+// Export a VIC (sub)tree to a file. 
+bool TreeMaintenance::exportResultTree (treeIDType			aTreeID,
+									    nodeIDType			topItem,
+									    const string&		filename)
+{
+	// Check connection
+	if (!itsConn->connect()) {
+		itsError = itsConn->errorMsg();
+		return (false);
+	}
+
+	LOG_TRACE_FLOW_STR("TM:exportResultTree(" << aTreeID << "," << topItem << "," << filename << ")");
+	work	xAction(*(itsConn->getConn()), "exportResultFile");
+	try {
+		ofstream	outFile;
+		outFile.open (filename.c_str());
+		if (!outFile) {
+			LOG_ERROR_STR ("Cannot open exportfile: " << filename);
+			return (false);
+		}
+
+		result	res = xAction.exec("SELECT * from exportResultTree(" +
+								    toString(itsConn->getAuthToken()) + "," +
+									toString(aTreeID) + "," +
+									toString(topItem) + ")");
+		// Get result
+		string		params;
+		res[0]["exportresulttree"].to(params);
+		outFile << params;
+		outFile.close();
+		return (true);
+	}
+	catch (std::exception&	ex) {
+		itsError = string("Exception during exportResultTree:") + ex.what();
+		LOG_FATAL(itsError);
+		return (false);
+	}
+
+	return (false);
+}
+
 //# --- Finally some general tree maintenance ---
 // Delete a tree (of any kind) from the database.
 bool	TreeMaintenance::deleteTree(treeIDType		aTreeID)