diff --git a/vvp/event.cc b/vvp/event.cc
index a0911d11c..a81f5be57 100644
--- a/vvp/event.cc
+++ b/vvp/event.cc
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: event.cc,v 1.8 2002/07/05 17:14:15 steve Exp $"
+#ident "$Id: event.cc,v 1.9 2002/07/17 18:30:01 steve Exp $"
 #endif
 
 # include  "event.h"
@@ -90,6 +90,11 @@ void event_functor_s::set(vvp_ipoint_t ptr, bool, unsigned val, unsigned)
       }
 }
 
+named_event_functor_s::named_event_functor_s()
+{
+      threads = 0;
+}
+
 named_event_functor_s::~named_event_functor_s()
 {
 }
@@ -184,6 +189,9 @@ void compile_named_event(char*label, char*name)
 
 /*
  * $Log: event.cc,v $
+ * Revision 1.9  2002/07/17 18:30:01  steve
+ *  Fix uninitialized thread pointer in named event.
+ *
  * Revision 1.8  2002/07/05 17:14:15  steve
  *  Names of vpi objects allocated as vpip_strings.
  *
diff --git a/vvp/event.h b/vvp/event.h
index 5b6074a72..770229aa1 100644
--- a/vvp/event.h
+++ b/vvp/event.h
@@ -19,7 +19,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT)
-#ident "$Id: event.h,v 1.2 2002/05/19 05:18:16 steve Exp $"
+#ident "$Id: event.h,v 1.3 2002/07/17 18:30:01 steve Exp $"
 #endif
 
 # include  "functor.h"
@@ -65,6 +65,7 @@ const event_functor_s::edge_t vvp_edge_none = 0;
 struct named_event_functor_s  : public waitable_hooks_s, public functor_s {
 
     public:
+      explicit named_event_functor_s();
       ~named_event_functor_s();
       void set(vvp_ipoint_t ipt, bool push, unsigned val, unsigned str =0);
 
@@ -79,6 +80,9 @@ struct callback_functor_s *vvp_fvector_make_callback
 
 /*
  * $Log: event.h,v $
+ * Revision 1.3  2002/07/17 18:30:01  steve
+ *  Fix uninitialized thread pointer in named event.
+ *
  * Revision 1.2  2002/05/19 05:18:16  steve
  *  Add callbacks for vpiNamedEvent objects.
  *