 		       blog-id
 		       user-name
 		       password
-		       `(("name" . ,category))))
+		       `(("name" . ,category)
+                         ("parent_id" . 0))))
 
 (defun wp-get-tags (blog-xmlrpc user-name password blog-id)
   "Retrieves list of tags from the weblog system. Uses wp.getTags"

                                         (name nil "dateCreated")
                                         (value nil
                                                (dateTime.iso8601 nil ,post-date)))
                                 ;; changed for cnblogs ends here
				 ,(when post-tags
				    `(member nil
					     (name nil "mt_keywords")
					     (value nil
						    (array
						     nil
						     ,(append
						       '(data nil)
						       (mapcar
							(lambda(f)
							  `(value nil (string nil ,f)))
							post-tags))))))
				 ,(when post-categories
				    `(member nil
					     (name nil "categories")

                                            (name nil "dateCreated")
                                            (value nil
                                                   (dateTime.iso8601 nil ,post-date)))
                                    ,(when post-tags
                                       `(member nil
                                                (name nil "mt_keywords")
                                                (value nil ,(reduce (lambda (result tag)
                                                                      (if (null tag)
                                                                          result
                                                                        (concat result ", " tag))) post-tags))))
                                    ;; changed for cnblogs ends here
                                    ,(when post-categories
                                       `(member nil
                                                (name nil "categories")
