Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1570 -r1571
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1570)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1571)
@@ -169,6 +169,7 @@
 
 <Method name="Export">
 <FormalSpec>ExternalName:%String,InternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Extension=..GeefExtentie(InternalName)
 	
@@ -178,7 +179,7 @@
 	else { 
 		set Status = ..ExportNonRoutine(.ExternalName,InternalName) 
 	}
-	Quit $$$OK
+	Quit Status
 ]]></Implementation>
 </Method>