 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defmacro zomp-add-seperator (seperator-id)
-  `(local-set-key [menu-bar zomp ,seperator-id] '("--")))
+(defmacro zomp-add-seperator ()
+  `(local-set-key [menu-bar zomp ,(gensym "zomp-seperator")] '("--")))
 
 (defmacro zomp-dofun (name command &optional confirm-msg)
   (if confirm-msg

  (zomp-add-action zomp-shell-list-bindings [(control c)(control f)] "List bindings...")
  (zomp-add-action zomp-shell-help [(control c)(control ??)] "Show Zomp shell help")

  (zomp-add-seperator zomp-sep4)
  (zomp-add-action zomp-indent-current-or-fill [(meta q)] "Indent current")
  (zomp-add-action zomp-indent-buffer [(shift meta q)] "Indent buffer")

  (zomp-add-seperator zomp-sep-2)
  (zomp-add-action zomp-shell-discard-input [(control c)(control l)] "Discard entered text")
  (zomp-add-action zomp-shell-eval-buffer [(control c)(control b)] "Eval buffer")
  (zomp-add-action zomp-shell-eval-region [(control c)(control r)] "Eval region")


  (local-set-key [(control c) (?.) (?D)] 'zomp-toggle-variant)

  (zomp-add-seperator)
  (zomp-add-action zomp-shell-run [(control c)(control d)] "Run function...")
  (zomp-add-action zomp-shell-run-test [(control c)(control t)] "Run 'void test()'")
  (zomp-add-action zomp-test-current-file [(control c)(control c)] "Test current file")
