Index: apimod.scm
==================================================================
--- apimod.scm
+++ apimod.scm
@@ -258,11 +258,11 @@
 		      ((< delta 5000) 0.1)
 		      ((< delta 10000) 0.25)
 		      (else 1.25))))
     (let ((res (api:retrieve-result-item id)))
       (if res
-	  res
+	  (api:queue-item-results res)
 	  (loop start)))))
 
 (define (api:queue-run-one)
   (let* ((item (api:get-queue-item))) ;; this removes it from the in-queue
     (if item

Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -15,11 +15,13 @@
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 
 
-(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking (srfi 18) posix-extras directory-utils call-with-environment-variables)
+(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking (srfi 18) posix-extras directory-utils
+     call-with-environment-variables)
+
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit mt))
 (declare (uses debugprint))
 (declare (uses db))