                           new-options))
   ([new-options]
    (config-set-options! new-options
-                        (str "repl or api call " (inc-explained-sequence))))
-  ([new-options doc-str] (config-set-options! new-options doc-str nil)))
+                        (str "repl or api call " (inc-explained-sequence))
+                        (select-op-options new-options)))
+  ([new-options doc-str]
+   (config-set-options! new-options doc-str (select-op-options new-options))))
 
 ;;
 ;; # Options Validation Functions

  [existing new]
  (reduce replace-existing existing new))

(defn select-op-options
  "Given an options map, return an options map with only the operational
  options remaining."
  [options]
  (select-keys options operational-options))

;;
;; # Configure one map
;;

  #?(:clj (some is-repl-stack-element (current-stack-trace))
     :cljs nil))

(defn select-op-options
  "Given an options map, return an options map with only the operational
  options remaining."
  [options]
  (select-keys options operational-options))

;;
;; End "detect in a REPL" code

