          (if-let [f (ns-resolve an-ns 'start)]
            (do
              (f)
-             (swap! system-status (fn [s] (assoc s an-ns true))))))))))
+             (swap! system-status (fn [s] (assoc s an-ns true)))))))))
 
 
 (defn stop-system!

  thing)


(defn help [& n]
  (println (str ">>> in ns " 'R))
  (mapv (fn [[k v]]
          (println v)) (ns-publics 'R))
  ::ok)


   ;; automagically guess the <app>.user namespace
   (let [an-ns (-> *ns*
                   str
                   (str/replace #"\..+" ".user")
                   symbol)]
     (require an-ns)
     (start-system! an-ns)))
  ([an-ns]
     (printf "!! Starting %s\n" an-ns)
     (if (get @system-status an-ns)
       (println "!! System possibly running" an-ns)
