@@ -13,11 +13,12 @@
      format dot-locking csv-xml z3 ;; sql-de-lite
      hostinfo md5 message-digest typed-records directory-utils stack
      matchable regex posix (srfi 18) extras ;; tcp 
      (prefix nanomsg nmsg:)
      (prefix sqlite3 sqlite3:)
-     pkts)
+     pkts
+     )
 
 (declare (unit common))
 
 (include "common_records.scm")
 
@@ -1793,11 +1794,11 @@
                    ("test-patt" . "-testpatt")
                    ("msg"       . "-m")
                    ("new"       . "-set-state-status"))))
     (if (eq? flavor 'switch)
         (map (lambda (x)
-               (cons (string->symbol (conc "-" (car x)) (cdr x))))
+               (cons (string->symbol (conc "-" (car x))) (cdr x)))
              default)
         default)))
 
 ;; set some env vars from an alist, return an alist with original values
 ;; (("VAR" "value") ...)