# -*- tcl -*-
# $Id: forced_toc,v 1.3 1999/02/01 15:38:14 tobotras Exp $

rename CloseBody CloseBody_forcedToc

proc CloseBody {} {
    withNode docroot {
	if { [query propval hasTOC] != "true" } {
	    TableOfContents
	}
    }
    CloseBody_forcedToc
}
