Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -43,11 +43,11 @@
 (define (mt:get-runs-by-patt keys runnamepatt targpatt)
   (let loop ((runsdat  (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500))
 	     (res      '())
 	     (offset   0)
 	     (limit    500))
-    (print "runsdat: " runsdat)
+    ;; (print "runsdat: " runsdat)
     (let* ((header    (vector-ref runsdat 0))
 	   (runslst   (vector-ref runsdat 1))
 	   (full-list (append res runslst))
 	   (have-more (eq? (length runslst) limit)))
       ;; (debug:print 0 "header: " header " runslst: " runslst " have-more: " have-more)