diff --git a/SWIG/Source/DOH/base.c b/SWIG/Source/DOH/base.c
index 399a1e96d..18edc0de7 100644
--- a/SWIG/Source/DOH/base.c
+++ b/SWIG/Source/DOH/base.c
@@ -18,16 +18,19 @@ char cvsroot_base_c[] = "$Header$";
  * DohDelete()
  * ----------------------------------------------------------------------------- */
 
+/* #define SWIG_DEBUG_DELETE */
 void
 DohDelete(DOH *obj) {
   DohBase *b = (DohBase *) obj;
   DohObjInfo *objinfo;
 
   if (!obj) return;
+#ifdef SWIG_DEBUG_DELETE
   if (!DohCheck(b)) {
     fputs("DOH: Fatal error. Attempt to delete a non-doh object.\n",stderr);
     abort();
   }
+#endif
   if (b->flag_intern) return;
   assert(b->refcount > 0);
   b->refcount--;