# -*- tcl -*-
# $Id: number_heads,v 1.3 1998/10/13 08:11:39 tobotras Exp $

rename openHead old_Open_Head

proc openHead {} {
    return "[old_Open_Head][currentDivNo]. "
}
