diff --git a/Examples/tcl/multimap/example.i b/Examples/tcl/multimap/example.i
index afe7ed7f9..721cfe04c 100644
--- a/Examples/tcl/multimap/example.i
+++ b/Examples/tcl/multimap/example.i
@@ -4,6 +4,8 @@
 
 extern int    gcd(int x, int y);
 
+%typemap(tcl8,arginit) (int argc, char *argv[]) "$2 = 0;";
+
 %typemap(tcl8,in) (int argc, char *argv[]) {
   Tcl_Obj **listobjv = 0;
   int i;