@@ -28,11 +28,11 @@
 
 ;; This is the Megatest API. All generally "useful" routines will be wrapped or extended
 ;; here.
 
 
-(define (mt:get-tests-for-run run-id testpatt states status #!key (not-in #f) (sort-by #f))
+(define (mt:get-tests-for-run run-id testpatt states status #!key (not-in #t) (sort-by #f))
   (let loop ((testsdat (cdb:remote-run db:get-tests-for-run #f run-id testpatt states status 0 500 not-in sort-by))
 	     (res      '())
 	     (offset   0)
 	     (limit    500))
     (let* ((full-list (append res testsdat))