Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -483,11 +483,12 @@
       (let ((data (full-runconfigs-read)))
 	;; keep this one local
 	(cond
 	 ((and (args:get-arg "-section")
 	       (args:get-arg "-var"))
-	  (print (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
+	  (let ((val (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
+	    (if val (print val))))
 	 ((not (args:get-arg "-dumpmode"))
 	  (pp (hash-table->alist data)))
 	 ((string=? (args:get-arg "-dumpmode") "json")
 	(json-write data))
 	 (else
@@ -501,11 +502,12 @@
       (push-directory *toppath*)
       ;; keep this one local
       (cond 
        ((and (args:get-arg "-section")
 	     (args:get-arg "-var"))
-	(print (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
+	(let ((val (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
+	  (if val (print val))))
        ((not (args:get-arg "-dumpmode"))
 	(pp (hash-table->alist data)))
        ((string=? (args:get-arg "-dumpmode") "json")
 	(json-write data))
        (else