diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp
index 310b74d..d0958ee 100644
--- a/tools/clog-builder-settings.lisp
+++ b/tools/clog-builder-settings.lisp
@@ -325,7 +325,6 @@
   `((:name "contents"
      :setup ,(lambda (control td1 td2)
                (declare (ignore td1))
-               (princ (inner-html control))
                (let ((d1 (create-text-area td2 :value (inner-html control))))
                  (set-on-change d1 (lambda (obj)
                                      (declare (ignore obj))