--- Tk.xs.str 2009-04-11 11:00:12.000000000 +0200 +++ Tk.xs 2009-04-11 11:00:30.000000000 +0200 @@ -573,7 +573,7 @@ { Tcl_ResetResult(interp); if (Tk_DefineBitmap(interp, Tk_GetUid(name), data, width, height) != TCL_OK) - croak(Tcl_GetStringResult(interp)); + croak("%s",Tcl_GetStringResult(interp)); } else { --- tkGlue.c.str 2009-04-11 11:07:55.000000000 +0200 +++ tkGlue.c 2009-04-11 11:08:10.000000000 +0200 @@ -2627,7 +2627,7 @@ if (retval != TCL_OK) { Tcl_DecrRefCount(result); - croak(Tcl_GetString(Tcl_GetObjResult(info->interp))); + croak("%s",Tcl_GetString(Tcl_GetObjResult(info->interp))); } retval = Return_Object(items,offset,result); Tcl_DecrRefCount(result);