proc ::dcblUtilities::displaySystemInfo {} {
    set indent "        "

    puts   "TCL Version:    ${::tcl_version}"
    puts   "Patch Level:    ${::tcl_patchLevel}"
    puts   "Startup File:   ${::tcl_rcFileName}"
    puts   "FP Precision:   ${::tcl_precision}"
    puts   "argv0:          ${::argv0}"
    puts   "argc:           ${::argc}"
    puts   "argv:           ${::argv}"
    foreach arg ${::argv} {
        puts ${indent}${arg}
    }
    puts   "Libaries:"
    foreach lib ${::tcl_library} {
        puts ${indent}${lib}
    }
    puts   "Package Path:"
    foreach path ${::tcl_pkgPath} {
        puts ${indent}${path}
    }
    parray ::tcl_platform
}