Index: tests/unittests/basicserver.scm
==================================================================
--- tests/unittests/basicserver.scm
+++ tests/unittests/basicserver.scm
@@ -92,11 +92,11 @@
 ;;
 (test #f 1 (rmt:register-run keyvals runname "new" "n/a" user))
 ;; (test #f #f (rmt:get-runs-by-patt keys runname))
 (test #f #t (rmt:general-call 'register-test run-id run-id "test-one" ""))
 (define test-one-id #f)
-(test #f 1  (let ((test-id (rmt:get-test-id run-id "test-one" "")))
+(test #f 30001  (let ((test-id (rmt:get-test-id run-id "test-one" "")))
 	      (set! test-one-id test-id)
 	      test-id))
 (define test-one-rec #f)
 (test #f "test-one" (let ((test-rec (rmt:get-test-info-by-id run-id test-one-id)))
 		      (set! test-one-rec test-rec)