diff --git a/ChangeLog b/ChangeLog
index 7c5d5f8d6d..dff38baca9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Sep 12 13:29:58 2009  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
+
+	* ext/win32ole/win32ole.c (EVENTSINK_Invoke): initialize result
+	  variant value.
+
 Thu Sep 10 23:00:45 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* lib/mkmf.rb (create_makefile): fix for parallel execution.
diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c
index c58595bb41..4e1da73f7c 100644
--- a/ext/win32ole/win32ole.c
+++ b/ext/win32ole/win32ole.c
@@ -5809,6 +5809,7 @@ STDMETHODIMP EVENTSINK_Invoke(
     }
 
     if (pvarResult) {
+	VariantInit(pvarResult);
         ole_val2variant(result, pvarResult);
     }