       
       ;; Case of a ns
       ;;----------------------------------------
-      ([:ns  gid art v plat ns name] :seq)
+      [([:ns  gid art v plat ns] :seq)]
       (let [?res (search config res)]
         (if (e/succeed? ?res)
           (e/succeed (first (e/result ?res)))


      ;; Default case
      ;;----------------------------------------
      (_ :seq)
      (e/fail "Unknown parse-short-string result!"))
    (e/fail "Could not parse string!")))

  [config s]
  {:pre [(string? s)]}
  (if-let [res (t/parse-short-string s)]
    (match [res]
      ;; Case of a def
      ;;----------------------------------------
      [([:def gid art v plat ns name] :seq)]
      (let [?res (search config res)]
        (if (e/succeed? ?res)
          (e/succeed (first (e/result ?res)))
