Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r3307 -r3385
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 3307)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 3385)
@@ -4,10 +4,10 @@
 <Super>TECH.RegisteredObject,TECH.File.FileAPI</Super>
 
 <Method name="GetFileList">
-<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0</FormalSpec>
+<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0,NumberOfFiles:%Numeric=0</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	set FileIterator = ##class(TECH.ListIterator).%New(##class(TECH.File.impl.FileUtils).%New().GetFileList(Directory,FileMask,AddSubDir,IncludeDirs))
+	set FileIterator = ##class(TECH.ListIterator).%New(##class(TECH.File.impl.FileUtils).%New().GetFileList(Directory,FileMask,AddSubDir,IncludeDirs,NumberOfFiles))
 	quit ##class(TECH.DynamicIterator).%New(FileIterator,"Item.Name")
 ]]></Implementation>
 </Method>