Index: tcl/lib/ns-lib.tcl
===================================================================
RCS file: /usr/src/mash/repository/vint/ns-2/tcl/lib/ns-lib.tcl,v
retrieving revision 1.116
retrieving revision 1.115
diff -c -r1.116 -r1.115
*** ns-lib.tcl	1998/07/17 05:25:05	1.116
--- ns-lib.tcl	1998/07/16 18:07:01	1.115
***************
*** 31,37 ****
  # SUCH DAMAGE.
  #
  
! # @(#) $Header: /usr/src/mash/repository/vint/ns-2/tcl/lib/ns-lib.tcl,v 1.116 1998/07/17 05:25:05 kannan Exp $
  
  #
  
--- 31,37 ----
  # SUCH DAMAGE.
  #
  
! # @(#) $Header: /usr/src/mash/repository/vint/ns-2/tcl/lib/ns-lib.tcl,v 1.115 1998/07/16 18:07:01 breslau Exp $
  
  #
  
***************
*** 450,456 ****
  		RTM {
                          set c [lindex $args 1]
                          set link_($sid:$did) [new CBQLink       \
!                                         $nd1 $nd2 $bw $delay $q $c]
                  }
                  CBQ -
                  CBQ/WRR {
--- 450,456 ----
  		RTM {
                          set c [lindex $args 1]
                          set link_($sid:$did) [new CBQLink       \
!                                         $n1 $n2 $bw $delay $q $c]
                  }
                  CBQ -
                  CBQ/WRR {
***************
*** 462,478 ****
                                  set c [lindex $args 1]
                          }
                          set link_($sid:$did) [new CBQLink       \
!                                         $nd1 $nd2 $bw $delay $q $c]
                  }
                  intserv {
                          #XX need to clean this up
                          set link_($sid:$did) [new IntServLink   \
!                                         $nd1 $nd2 $bw $delay $q	\
  						[concat $qtypeOrig $args]]
                  }
                  default {
                          set link_($sid:$did) [new SimpleLink    \
!                                         $nd1 $nd2 $bw $delay $q]
                  }
          }
  	$n1 add-neighbor $n2
--- 462,478 ----
                                  set c [lindex $args 1]
                          }
                          set link_($sid:$did) [new CBQLink       \
!                                         $n1 $n2 $bw $delay $q $c]
                  }
                  intserv {
                          #XX need to clean this up
                          set link_($sid:$did) [new IntServLink   \
!                                         $n1 $n2 $bw $delay $q	\
  						[concat $qtypeOrig $args]]
                  }
                  default {
                          set link_($sid:$did) [new SimpleLink    \
!                                         $n1 $n2 $bw $delay $q]
                  }
          }
  	$n1 add-neighbor $n2

.