diff --git a/lib/branch_rename.tcl b/lib/branch_rename.tcl
index d6f040e7a24f50709174f1a62283252f5c3fe9a6..166538808f461275075e2b03c56ddc15b5813e1a 100644 (file)
--- a/lib/branch_rename.tcl
+++ b/lib/branch_rename.tcl
-type ok \
-title [wm title $w] \
-parent $w \
-type ok \
-title [wm title $w] \
-parent $w \
- -message [append [mc "Failed to rename '%s'." $oldname] "\n\n$err"]
+ -message [strcat [mc "Failed to rename '%s'." $oldname] "\n\n$err"]
return
}
return
}