diff --git a/tbsetup/ns2ir/lanlink.tcl b/tbsetup/ns2ir/lanlink.tcl
index 1e02d4088fc946c236d2dd8eee3ea469d026f273..2da02c697bc197a0cdc1ed2407ec213f680fd4cf 100644
--- a/tbsetup/ns2ir/lanlink.tcl
+++ b/tbsetup/ns2ir/lanlink.tcl
@@ -1,7 +1,7 @@
 # -*- tcl -*-
 #
 # EMULAB-COPYRIGHT
-# Copyright (c) 2000-2005 University of Utah and the Flux Group.
+# Copyright (c) 2000-2006 University of Utah and the Flux Group.
 # All rights reserved.
 #
 
@@ -262,6 +262,9 @@ LanLink instproc init {s nodes bw d type} {
     $self instvar cost
     $self instvar linkq
 
+    $self instvar iscloud
+    $self set iscloud 0
+
     foreach node $nodes {
 	set nodepair [list $node [$node add_lanlink $self]]
 	set bandwidth($nodepair) $bw