     "Wraped command"
     (interactive (advice-eval-interactive-spec
 		  (let ((cmd (funcall lookup)))
-		    (when cmd (cadr (interactive-form command))))))
+		    (when cmd (cadr (interactive-form cmd))))))
     (let ((cmd (funcall lookup)))
       (when cmd (apply cmd args)))))
 

  ;; Alt-Space for marking as well.
  (user-keys-alias "C-SPC" "M-SPC")

  (user-keys-add "C-x 3" 'my-2-window-split)

  ;; Bindings to call the action overriden with user-keys-prefix
  (user-keys-subkey "q" (user-keys-overwritten-prefix-command))


(user-keys-mode t)

(progn
  (user-keys-reset)
  
  (setcdr user-keys-mode-map nil)
