 
 (defun indent-closure-close ()
   (let ((prev (closure-previous-indent)))
-    (message "%s" prev)
     (case (first prev)
       (opened (indent-line-to (second prev)))
       (otherwise (indent-line-to (- (second prev) sgml-basic-offset))))))


(defun indent-closure-open ()
  (let ((ind (closure-previous-indent)))
    (message "%s" ind)
    (case (car ind)
      (opened (indent-line-to (+ (second ind)
                                 sgml-basic-offset)))

    (or (closure-short-com)
        (looking-at *closure-star-at-begining*)
	    (looking-at *closure-long-com*))))

(defun closure-open ()
  (save-excursion
