diff --git a/ChangeLog b/ChangeLog
index 27ffd6d8..0fb0831c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2010-01-06  Satoshi Yatagawa  <yata_github@y.hauN.org>
+
+	* twittering-mode.el (twittering-http-get-default-sentinel): Move
+	`debug-printf' to outside of `unwind-protect' because we expect
+	that mostly code of this function should be executed by way of
+	BODYFORM of `unwind-protect', not UNWINDFORM.
+	(twittering-http-post-default-sentinel): Likewise.
+
+	* twittering-mode.el (twittering-http-get-list-index-sentinel): Add 
+	`debug-printf' same as `twittering-http-get-default-sentinel'.
+
 2010-01-04  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-get-response-header): Change
diff --git a/twittering-mode.el b/twittering-mode.el
index 0d01ca54..832f616e 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -900,8 +900,8 @@ Available keywords:
        (cadr encoded-time))))
 
 (defun twittering-http-get-default-sentinel (temp-buffer noninteractive proc stat &optional suc-msg)
+  (debug-printf "get-default-sentinel: proc=%s stat=%s" proc stat)
   (unwind-protect
-      (debug-printf "get-default-sentinel: proc=%s stat=%s" proc stat)
       (let ((header (twittering-get-response-header temp-buffer))
 	    (body (twittering-get-response-body temp-buffer))
 	    (status nil))
@@ -941,6 +941,7 @@ Available keywords:
 ;; XXX: this is a preliminary implementation because we should parse
 ;; xmltree in the function.
 (defun twittering-http-get-list-index-sentinel (temp-buffer noninteractive proc stat &optional suc-msg)
+  (debug-printf "get-list-index-sentinel: proc=%s stat=%s" proc stat)
   (unwind-protect
       (let ((header (twittering-get-response-header temp-buffer)))
 	(if (not (string-match "HTTP/1\.[01] \\([a-zA-Z0-9 ]+\\)\r?\n" header))
@@ -985,8 +986,8 @@ PARAMETERS is alist of URI parameters.
    host nil (concat "/" method ".xml") parameters noninteractive sentinel))
 
 (defun twittering-http-post-default-sentinel (temp-buffer noninteractive proc stat &optional suc-msg)
+  (debug-printf "post-default-sentinel: proc=%s stat=%s" proc stat)
   (unwind-protect
-      (debug-printf "post-default-sentinel: proc=%s stat=%s" proc stat)
       (let ((header (twittering-get-response-header temp-buffer))
 	    ;; (body (twittering-get-response-body temp-buffer)) not used now.
 	    (status nil))