diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 1640629..7eb7b18 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -436,18 +436,13 @@ replaced."
 				    (set-geometry control :left (1- (position-left control)))))
 			       ((and (equal key "c")
 				     (or meta ctrl))
-				(focus content)
-				(js-execute obj "document.execCommand('copy')"))
+				(blur placer))
 			       ((and (equal key "v")
 				     (or meta ctrl))
-				(focus content)
-				(js-execute obj "document.execCommand('paste')"))
+				(blur placer))
 			       ((and (equal key "x")
 				     (or meta ctrl))
-				(focus content)
-				(js-execute obj "document.execCommand('cut')"))
-			       (t
-				(print data)))
+				(blur placer)))
                          (set-geometry placer :top (position-top control)
                                               :left (position-left control)
 					      :width (client-width control)