Editor command not working on delivery level 5

Hello lispworkers,

I define the following command to handle pressing the Delete key.

(defcommand "Delete Character or Selection" (p)
     "Delete (not kill!) the region if it is highlighted otherwise
 next character" ""
  (cond ((variable-value-if-bound "Highlight Active Region"
              :buffer (current-buffer))
         (delete-region-command p)
         (set-highlight-buffer-region nil))
        (t
         (delete-next-character-command p))))

(bind-key "Delete Character or Selection" #\Delete)

This works fine in IDE and in an application delivered on level 4.
However on level 5, delete-next-character-command seems always to be
invoked.

I usually specify the following arguments to the deliver function:
  :keep-editor t
  :editor-commands-to-keep :simple-editor

I have also tried (unsuccessfully)
  :editor-commands-to-keep '("Delete Character or Selection")

Any takers?
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru