diff --git a/src/object.c b/src/object.c
index c1261cea3a2870ed570f15ea3db5e4484cba532c..685a44e8a0a815eb38c586261568eb67275b15a5 100644
--- a/src/object.c
+++ b/src/object.c
@@ -2,7 +2,7 @@
 || This file is part of Pike. For copyright information see COPYRIGHT.
 || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
 || for more information.
-|| $Id: object.c,v 1.296 2008/05/29 17:11:43 grubba Exp $
+|| $Id: object.c,v 1.297 2008/06/03 14:52:47 mast Exp $
 */
 
 #include "global.h"
@@ -291,7 +291,7 @@ PMOD_EXPORT void call_c_initializers(struct object *o)
 }
 
 
-void call_prog_event(struct object *o, int event)
+PMOD_EXPORT void call_prog_event(struct object *o, int event)
 {
   int e;
   struct program *p=o->prog;
diff --git a/src/object.h b/src/object.h
index a02b5fd7a4e3d42b50a66ea087e19181d4e3677d..b7460f9a5a16b38328d3ea3c9c08c357dfc99b00 100644
--- a/src/object.h
+++ b/src/object.h
@@ -2,7 +2,7 @@
 || This file is part of Pike. For copyright information see COPYRIGHT.
 || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
 || for more information.
-|| $Id: object.h,v 1.97 2008/05/29 10:11:14 grubba Exp $
+|| $Id: object.h,v 1.98 2008/06/03 14:52:47 mast Exp $
 */
 
 #ifndef OBJECT_H
@@ -78,7 +78,7 @@ enum object_destruct_reason {
 BLOCK_ALLOC_FILL_PAGES(object, 2);
 PMOD_EXPORT struct object *low_clone(struct program *p);
 PMOD_EXPORT void call_c_initializers(struct object *o);
-void call_prog_event(struct object *o, int event);
+PMOD_EXPORT void call_prog_event(struct object *o, int event);
 void call_pike_initializers(struct object *o, int args);
 PMOD_EXPORT void do_free_object(struct object *o);
 PMOD_EXPORT struct object *debug_clone_object(struct program *p, int args);