@@ -346,11 +346,12 @@
 
 (if (args:get-arg "-list-targets")
     (let ((targets (common:get-runconfig-targets)))
       (print "Found "(length targets) " targets")
       (for-each (lambda (x)
-		  (print "[" x "]"))
+		  ;; (print "[" x "]"))
+		  (print x))
 		targets)
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-show-runconfig")
     (begin
@@ -426,11 +427,12 @@
 						       keynames) "/")))
 	       (if db-targets
 		   (if (not (hash-table-ref/default seen targetstr #f))
 		       (begin
 			 (hash-table-set! seen targetstr #t)
-			 (print "[" targetstr "]"))))
+			 ;; (print "[" targetstr "]"))))
+			 (print targetstr))))
 	       (if (not db-targets)
 		   (let* ((run-id (open-run-close db:get-value-by-header run header "id"))
 			  (tests  (open-run-close db:get-tests-for-run db run-id testpatt '() '())))
 		     (debug:print 1 "Run: " targetstr " status: " (db:get-value-by-header run header "state")
 				  " run-id: " run-id ", number tests: " (length tests))
@@ -907,11 +909,11 @@
 	   (db      (if toppath (open-db) #f)))
       (if db
 	  (begin
 	    (set! *db* db)
 	    (set! *client-non-blocking-mode* #t)
-	    ;; (server:client-setup)
+	    (server:client-setup)
 	    (import readline)
 	    (import apropos)
 	    (gnu-history-install-file-manager
 	     (string-append
 	      (or (get-environment-variable "HOME") ".") "/.megatest_history"))