--- 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);