 ;  (println "Sending message " msg)
   (zmq/send socket (.getBytes msg)))
 
-(defn kernel-info-reply [message socket]
+(defn kernel-info-reply [message socket signer]
   (let [header (kernel-info-header message)
         parent_header (cheshire/generate-string (:header message))
         metadata (cheshire/generate-string {})
         content  (cheshire/generate-string kernel-info-content)]
     (send-message-piece socket (get-in message [:header :session]))
     (send-message-piece socket "<IDS|MSG>")
-    (send-message-piece socket "")
+    (send-message-piece socket (signer header parent_header metadata content))
     (send-message-piece socket header)
     (send-message-piece socket parent_header)
     (send-message-piece socket metadata)

         (binding [*ns* user-ns] (eval (read-string request)))
         (catch Exception e (.getLocalizedMessage e)))))))

(defn history-reply [message]
  "returns REPL history, not implemented for now and returns a dummy message"
  {:history []})

(defn configure-shell-handler [shell-socket iopub-socket]
  (let [execute-request (execute-request-handler shell-socket iopub-socket
                                                 (get-executer))]
    (fn [message]
      (let [msg-type (get-in message [:header :msg_type])]
        (case msg-type
          "kernel_info_request" (kernel-info-reply message shell-socket)
          "execute_request" (execute-request message)
          "history_request" (history-reply message)
          (do
            (println "Message type" msg-type "not handled yet. Exiting.")
            (println "Message dump:" message)

                      {:dependencies_met "True"
                       :engine session-id
                       :status "ok"
                       :started (now)} session-id signer)
        (send-message iopub-socket "pyout"  (pyout-content @execution-count
                                                           message executer)
                      parent-header {} session-id signer)
        (send-message iopub-socket "status" (status-content "idle")
                      parent-header {} session-id signer)))))

(defn execute
  "evaluates s-forms"
