diff --git a/Examples/test-suite/typemap_variables.i b/Examples/test-suite/typemap_variables.i
index 94a008024..0bb67211e 100644
--- a/Examples/test-suite/typemap_variables.i
+++ b/Examples/test-suite/typemap_variables.i
@@ -23,7 +23,11 @@
 %typemap(in)  int Space::nspace             "/*int nspace in */ $1=0;"
 %typemap(out) int Space::nspace             "/*int nspace out*/ $result=0;"
 %typemap(in)  int member                    "/*int member in */ $1=0;"
+#ifdef SWIGTCL
+%typemap(out) int member                    "/*int member out*/"
+#else
 %typemap(out) int member                    "/*int member out*/ $result=0;"
+#endif
 %typemap(in)  int Space::Struct::smember    "/*int smember in */ $1=0;"
 %typemap(out) int Space::Struct::smember    "/*int smember out*/ $result=0;"