diff --git a/source/clog-element.lisp b/source/clog-element.lisp
index 8d602ac..26ddb1b 100644
--- a/source/clog-element.lisp
+++ b/source/clog-element.lisp
@@ -87,7 +87,10 @@ CLOG-OBJ. If HTML-ID is nil one will be generated."))
                                  :clog-type clog-type
                                  :html-id   html-id)))
     (if auto-place
-        (place-inside-bottom-of obj child)
+        (case auto-place
+	  (:bottom (place-inside-bottom-of obj child))
+	  (:top (place-inside-top-of obj child))
+	  (t (place-inside-bottom-of obj child)))
         child)))
 
 ;;;;;;;;;;;;;;;;;;;;;