@@ -1090,11 +1090,11 @@
 			;;   	  (reverse new-res)
 			;;   	  (loop (car tal)(cdr tal) new-res)))))
 			;;   runstmp))
 	       (db-targets  (args:get-arg "-list-db-targets"))
 	       (seen        (make-hash-table))
-	       (dmode       (let ((d (args:get-arg "-dumpmode")))
+	       (dmode       (let ((d (args:get-arg "-dumpmode"))) ;; json, sexpr
 			      (if d (string->symbol d) #f)))
 	       (data        (make-hash-table))
 	       (fields-spec (if (args:get-arg "-fields")
 				(extract-fields-constraints (args:get-arg "-fields"))
 				(list (cons "runs" (append keys (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count")))
@@ -1149,11 +1149,11 @@
 								 #f)
 							     #f
 							     'normal)
 				       '())))
 		     (case dmode
-		       ((json ods)
+		       ((json ods sexpr)
 			(if runs-spec
 			    (for-each 
 			     (lambda (field-name)
 			       (mutils:hierhash-set! data (conc (db:get-value-by-header run header field-name)) targetstr runname "meta" field-name))
 			     runs-spec)))
@@ -1204,11 +1204,11 @@
 				(fullname     (conc testname
 						    (if (equal? itempath "")
 							"" 
 							(conc "(" itempath ")")))))
 			   (case dmode
-			     ((json ods)
+			     ((json ods sexpr)
 			      (if tests-spec
 				  (for-each
 				   (lambda (field-name)
 				     (mutils:hierhash-set! data  (get-value-by-fieldname test test-field-index field-name) targetstr runname "data" (conc test-id) field-name))
 				   tests-spec)))
@@ -1287,11 +1287,13 @@
 				      ((and (string? first)(string? second)) string<=?)
 				      (else equal?))
 				     first second))))
 			  tests))))))
 	   runs)
-	  (if (eq? dmode 'json)(json-write data))
+	  (case dmode
+	    ((json)  (json-write data))
+	    ((sexpr) (pp (common:to-alist data))))
 	  (let* ((metadat-fields (delete-duplicates
 				  (append keys '( "runname" "time" "owner" "pass_count" "fail_count" "state" "status" "comment" "id"))))
 		 (run-fields    '(
 				  "testname"
 				  "item_path"
@@ -1360,11 +1362,11 @@
 							     (cons (conc target "/" runname)
 								   (cons (list (conc target "/" runname))
 									 (cons '()
 									       (cons run-fields tests)))))
 							   (begin
-							     (debug:print 0 *default-log-port* "WARNING: run " target "/" runname " appears to have no data")
+							     (debug:print 4 *default-log-port* "WARNING: run " target "/" runname " appears to have no data")
 							     ;; (pp rundat)
 							     '()))))
 						   runsdat)
 					      '())))
 				      newdat)) ;; we use newdat to get target