--- gui.tcl.orig	Mon Jul 13 11:44:30 1998
+++ gui.tcl	Thu Sep 10 14:06:48 1998
@@ -79,6 +79,7 @@
 		wm geometry $w [lfirst [split $manx(geom) "+-"]]
 		#wm group $w .man -- don't want this even if it did work
 	}
+	wm group $w $w
 	wm title $w $manx(title$w)
 	# temporarily, to get around twm bug (yuck!)
 #	wm iconname $w "TkMan"
