nedostajuci global

diff --git a/linkcfg.tcl b/linkcfg.tcl
index 696dd4790233d86570314c206ba83707a26bd31f..b7d8d16be90f812e29419b094192e96279dfbfa4 100755 (executable)
--- a/linkcfg.tcl
+++ b/linkcfg.tcl
@@ -690,6 +690,7 @@ proc newLink { lnode1 lnode2 } {
     set ifname2 [newIfc [chooseIfName $lnode2 $lnode1] $lnode2]
     lappend $lnode2 "interface-peer {$ifname2 $lnode1}"
 
+    global debug
     if { $debug } {
         puts "Create link"
         puts "  nodetype 1: [nodeType $lnode1]"