 
      ~(export-definition 'reply.initialization/intern-with-meta)
 
-     ~(export-definition 'reply.initialization/help)
+     ~(if custom-help
+        `(defn ~'help [] ~custom-help)
+        (export-definition 'reply.initialization/help))
+
      (~'intern-with-meta '~'user '~'help ~'#'help)
 
      ~(export-definition 'reply.initialization/unresolve)

(defn construct-init-code
  [{:keys [skip-default-init custom-init custom-eval custom-help] :as options}]
  `(do
     ~(when-not skip-default-init (default-init-code))
     ~(if custom-help
        custom-help
        '(user/help))
     ~(when custom-eval custom-eval)
     ~(when custom-init custom-init)
    nil))

     ~(completion-code)

     (in-ns (ns-name ~'reply.exports/original-ns))

     (user/help)

     nil))

(defn eval-in-user-ns [code]
