--- mkZiplib10.c.orig	2001-07-21 23:05:14 UTC
+++ mkZiplib10.c
@@ -184,7 +184,6 @@ static int _MkzError( Tcl_Interp *pI, ch
     return TCL_ERROR;
 
   va_start( marker, pcFormat );
-  args = (char**)marker;
 
   strcpy( pcFmt, pcFormat );
 
@@ -196,13 +195,20 @@ static int _MkzError( Tcl_Interp *pI, ch
     if( *pcRun == 'O' )
     {
       *pcRun = 's';
-      args[i] = _GSO( (Tcl_Obj*)args[i] );
+      args[i] = _GSO( (Tcl_Obj*)va_arg(marker, const char *));
       i++;
     }
+    else
+    {
+      (void)va_arg( marker, void * );
+    }
   }
+  va_end( marker );
 
+  va_start( marker, pcFormat );
   vsprintf( pcMsg, pcFmt, marker );
   _SSO( _GOR, pcMsg );
+  va_end( marker );
 
   return TCL_ERROR;
 }