diff --git a/lib/database.tcl b/lib/database.tcl
index 73058a826911dd5f75bb33636000b905096e975d..43e4a289bba9c265d6652ce404d75967a57f7ca3 100644 (file)
--- a/lib/database.tcl
+++ b/lib/database.tcl
proc do_gc {} {
set w [console::new {gc} {Compressing the object database}]
- console::chain {
- {exec {git pack-refs --prune}}
- {exec {git reflog expire --all}}
- {exec {git repack -a -d -l}}
- {exec {git rerere gc}}
- } $w
+ console::chain $w {
+ {exec git pack-refs --prune}
+ {exec git reflog expire --all}
+ {exec git repack -a -d -l}
+ {exec git rerere gc}
+ }
}
proc do_fsck_objects {} {