X-Git-Url: https://git.distorted.org.uk/~mdw/zoneconf/blobdiff_plain/2042733dc4f99c1ef70102ac87a24486a78ca94a..63ba7a29dc96a5ccb801408782c7d930c9009b4a:/bin/zoneconf

diff --git a/bin/zoneconf b/bin/zoneconf
index c8ac895..8e0646d 100755
--- a/bin/zoneconf
+++ b/bin/zoneconf
@@ -312,7 +312,7 @@ proc preserving-config {confvar body} {
   ## Evaluate BODY, but on exit restore the CONFVAR array so that the BODY
   ## has no lasting effect on it.
 
-  upvar #1 $confvar CONFIG
+  upvar #0 $confvar CONFIG
   set old [array get CONFIG]
   unwind-protect {
     uplevel 1 $body