From 9afcb30f8baa03442213fcb168fc3bed12bfc4d1 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Wed, 22 Nov 2000 22:57:27 +0000
Subject: [PATCH] Minor fix to formatted I/O.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@946 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/DOH/Doh/fio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/DOH/Doh/fio.c b/Source/DOH/Doh/fio.c
index c35e036b2..e221310b8 100644
--- a/Source/DOH/Doh/fio.c
+++ b/Source/DOH/Doh/fio.c
@@ -265,7 +265,7 @@ DohvPrintf(DOH *so, const char *format, va_list ap)
 	doh = va_arg(ap, DOH *);
 	if (DohCheck(doh)) {
 	  /* Is a DOH object. */
- 	  if (DohIsString(doh)) {
+ 	  if (DohIsString(doh) && (ObjType(doh) == DOHTYPE_STRING)) {
 	    Sval = doh;
 	  } else {
 	    Sval = Str(doh);