                            (zomp-indent-line)
                            (insert ":")))
 
-  (local-set-key [(control c)(control k)] '(lambda () (interactive)
+  (local-set-key [(control c)(control l)] '(lambda () (interactive)
                                              (zomp-tl-do "!")))
 
   ;; create zomp menu. order of the zomp-add-action commands is reversed order in menu

  (let ((oldpoint (point))
        (moved-lines 0)
        (column (save-excursion (back-to-indentation) (current-column))))
    (message "column = %s" column)
    (previous-line)
    (while (or
            (>= (progn (back-to-indentation) (current-column)) column)


  (zomp-add-seperator zomp-sep-1)
  (zomp-add-action zomp-tl-exit [(control c)(control q)] "Exit toplevel")
  (zomp-add-action zomp-start-or-show-toplevel
                   [(control c)(control s)]
                   "Start toplevel")
  (zomp-add-action zomp-request-execution-abort
                   [(control c)(control k)]
                   "Request app to pause")

  ;; set additional keys on OS X
  (local-set-key [(alt r)]' zomp-run)
