From 0bef5429562d2100defc9ccea09b25a50a6c99fb 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@946 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Source/DOH/Doh/fio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SWIG/Source/DOH/Doh/fio.c b/SWIG/Source/DOH/Doh/fio.c
index c35e036b2..e221310b8 100644
--- a/SWIG/Source/DOH/Doh/fio.c
+++ b/SWIG/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);