Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -809,11 +809,13 @@
 	            (set! fromdat (cons (apply vector a b) fromdat))
 	            (if (> (length fromdat) batch-len)
 		      (begin
 		        (set! fromdats (cons fromdat fromdats))
 		        (set! fromdat  '())
-		        (set! totrecords (+ totrecords 1)))
+		        (set! totrecords (+ totrecords 1))
+                        (thread-sleep! 2)
+                      )
                     )
                  )
 	         (dbr:dbdat-dbh fromdb)
 	         full-sel)
               )

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,6 +18,6 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..
 
 ;; (declare (unit megatest-version))
 
-(define megatest-version 1.7014)
+(define megatest-version 1.7015)