diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp
index 4810bd3..640feb7 100644
--- a/tools/clog-builder-settings.lisp
+++ b/tools/clog-builder-settings.lisp
@@ -816,6 +816,10 @@
      :create-type    :form
      :create-param   :image
      :create-value   ""
+     :setup          ,(lambda (control content control-record)
+			(declare (ignore content) (ignore control-record))
+			(setf (url-src control) "/img/clogicon.png")
+			(setf (alt-text control) "Add image url"))
      :events         (,@*events-element*)
      :properties     (,@*props-form-element*))
    `(:name           "month"
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index b1c6ad0..58b6cff 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -477,6 +477,9 @@ not a temporary attached one when using select-control."
 		 (td2 (if (second item)
 			  (create-table-column tr :content (second item))
 			  (create-table-column tr))))
+	    (setf (width td1) "30%")
+	    (setf (width td2) "70%")
+	    (setf (spellcheckp td2) nil)
 	    (set-border td1 "1px" :dotted :black)
 	    (cond ((third item)
 		   (unless (eq (third item) :read-only)