diff --git a/tk-silica/xt-silica.lisp b/tk-silica/xt-silica.lisp
index b46f75630b2809cf16fff98e66cff0a3b45f00f6..858a6d4e364dd5468a51e77716881b1d27193032 100644
--- a/tk-silica/xt-silica.lisp
+++ b/tk-silica/xt-silica.lisp
@@ -1510,8 +1510,7 @@ setup."
 
 ;;;
 (defun lookup-character-and-keysym (sheet mirror event)
-  (declare #+nil (optimize (speed 3) (safety 0))
-           (optimize (speed 0) (safety 3) (debug 3))
+  (declare (optimize (speed 3) (safety 0))
            (ignore sheet))
   (multiple-value-bind (character keysym)
       (if (eql :key-press (tk::event-type event))
diff --git a/tk/xm-widgets.lisp b/tk/xm-widgets.lisp
index 4859c9f82f283d44122e7287e059c30e08779079..c97a31b5da40fa1d90dd1226ecc6ac8d886bc9d6 100644
--- a/tk/xm-widgets.lisp
+++ b/tk/xm-widgets.lisp
@@ -319,7 +319,7 @@
        (excl:without-interrupts (push buffer *lookup-string-buffers*)))))
 
 (defun lookup-multibyte-string (event widget)
-  (declare (optimize (speed 0) (safety 3) (debug 3)))
+  (declare (optimize (speed 3) (safety 0)))
   (with-lookup-string-buffer (buffer)
     (with-ref-par ((keysym 0 :unsigned-long)
                    (status 0 :int))