diff --git a/src/array.c b/src/array.c
index 7c60a8456eabc32073ee466139388ee1d0778eb7..7961059fedcb8da316dc63c0727a2019021fedfe 100644
--- a/src/array.c
+++ b/src/array.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: array.c,v 1.192 2006/05/10 19:43:54 mast Exp $
+|| $Id: array.c,v 1.193 2006/07/05 20:49:17 mast Exp $
 */
 
 #include "global.h"
@@ -1296,7 +1296,7 @@ PMOD_EXPORT TYPE_FIELD array_fix_type_field(struct array *v)
 
 #ifdef PIKE_DEBUG
 /* Maybe I should have a 'clean' flag for this computation */
-void array_check_type_field(struct array *v)
+PMOD_EXPORT void array_check_type_field(struct array *v)
 {
   int e;
   TYPE_FIELD t;
diff --git a/src/array.h b/src/array.h
index 995beb5499333db30bcdd989a7dc126e73008c06..5368e8c2d9a716ca2fa3b1cec43a1fcb753e67a5 100644
--- a/src/array.h
+++ b/src/array.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: array.h,v 1.68 2005/09/12 07:45:47 bill Exp $
+|| $Id: array.h,v 1.69 2006/07/05 20:49:17 mast Exp $
 */
 
 #ifndef ARRAY_H
@@ -142,7 +142,7 @@ PMOD_EXPORT struct array *order_array(struct array *v, INT32 *order);
 PMOD_EXPORT struct array *reorder_and_copy_array(struct array *v, INT32 *order);
 PMOD_EXPORT TYPE_FIELD array_fix_type_field(struct array *v);
 #ifdef PIKE_DEBUG
-void array_check_type_field(struct array *v);
+PMOD_EXPORT void array_check_type_field(struct array *v);
 #endif
 PMOD_EXPORT union anything *low_array_get_item_ptr(struct array *a,
 				       INT32 ind,