diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 69d0fb4..d5b2225 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -813,8 +813,9 @@ of controls and double click to select control."
 			  "\(in-package \"~A\"\)
 \(defclass ~A \(clog:clog-div\)
   \(~{~A~}\)\)
-\(defun create-~A \(clog-obj\)
-  \(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"\) \'~A\)\)\)
+\(defun create-~A \(clog-obj &key \(hidden nil\) \(class nil\) \(html-id nil\) \(auto-place t\)\)
+  \(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"
+         :hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\)
 ~{~A~}~{~A~}    panel\)\)"
 			  (string-upcase package)
 			  cname     ;;defclass