# -*- tcl -*-
# $Id: forced_toc,v 1.4 2000/01/20 08:58:51 tobotras Exp $

rename CloseBody CloseBody_forcedToc

proc CloseBody {} {
    withNode docroot {
	if { [query propval hasTOC] != "true" } {
	    pushMode generatetoc
	    withNode docroot translateHandler
	    popMode
	}
    }
    CloseBody_forcedToc
}
