From 5ad92f12500153e16cc6f6b4b79c92ddcc16c8e4 Mon Sep 17 00:00:00 2001
From: Dan Moore <mooredan@suncup.net>
Date: Sun, 25 Jul 2021 11:28:54 -0700
Subject: [PATCH] If the setup file is present and will be read, preface
 reading it with setting of defaults This alleviates the requirement for the
 defaults to explicitly lead the custom setup file

---
 tcltk/netgen.tcl.in | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tcltk/netgen.tcl.in b/tcltk/netgen.tcl.in
index 2bd2e8e..f176f11 100644
--- a/tcltk/netgen.tcl.in
+++ b/tcltk/netgen.tcl.in
@@ -485,6 +485,9 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
       if {![catch {open $setupfile r} fsetup]} {
 	 set sline 0
 	 set command {}
+	 # preface reading of setup file with defaults
+	 netgen::permute default
+	 netgen::property default
 	 while {[gets $fsetup line] >= 0} {
 	    incr sline
 	    append command $line "\n"