--- tkmandesc.tcl.orig	Wed Apr  2 01:31:38 2003
+++ tkmandesc.tcl	Sun Oct 19 11:09:54 2003
@@ -224,8 +224,9 @@
 		set mani(manTitleList) $man(manTitleList)
 
 		if {![info exists env(MANPATH)] || [string trim $env(MANPATH)] eq ""} {
-			puts stderr "You must set a MANPATH environment variable,\nwhich is a colon-separated list of directories in which\nto find man pages, for example /usr/man:/usr/share/man.\n(See the help page for an explanation of why\nalternatives to the MANPATH are a bad thing.)"
-			exit 1
+#			puts stderr "You must set a MANPATH environment variable,\nwhich is a colon-separated list of directories in which\nto find man pages, for example /usr/man:/usr/share/man.\n(See the help page for an explanation of why\nalternatives to the MANPATH are a bad thing.)"
+#			exit 1
+			set env(MANPATH) [join $manx(mastermen) ":"]
 		}
 		set manx(MANPATH0) $env(MANPATH)