Index: gui.tcl
--- gui.tcl.orig
+++ gui.tcl
@@ -745,6 +745,9 @@ proc manManTabSet {w} {
 # so cols = (50/307)*562 = 91, want ~90, yay
 	set repstr "ETRNIOASM          aaabcdeeeefghiijklmnnooprrsttuy"; set replen [string length $repstr]
 
+	# Force update; [winfo width] won't return the correct width until the window is drawn.
+	update
+
 	set rm [expr {[winfo width $t]-2*[$t cget -padx]-10}]
 	$t tag configure info -tabs [list 0.3i $rm right]
 	$t tag configure census -tabs [list [expr {$rm-150}] right $rm right]
