@@ -731,11 +731,12 @@
 		    (begin
 		      (debug:print 0 "ERROR: You must specify :state and :status with every call to -test-status\n" help)
 		      ;; (sqlite3:finalize! db)
 		      (exit 6)))
 		(let ((msg (args:get-arg "-m")))
-		  (open-run-close tests:test-set-status! db test-id state newstatus msg otherdata))))
+		  ;; Convert to rpc
+		  (rdb:open-run-close 'tests:test-set-status! #f test-id state newstatus msg otherdata))))
 	  (if db (sqlite3:finalize! db))
 	  (set! *didsomething* #t))))
 
 ;;======================================================================
 ;; Various helper commands can go below here