$NetBSD: patch-de,v 1.1 2007/09/07 21:26:33 spz Exp $

--- src/roe/object.cc.orig	2002-04-09 13:48:48.000000000 +0200
+++ src/roe/object.cc
@@ -107,7 +107,8 @@ void RoeObject::del(int index) {
    RouteList::Route *vr = routelist(index);
 
    // Modified by wlee@isi.edu
-   tcl_Eval("set AS AS%d", routelist.as);
+   asnum_string(buffer, routelist.as);
+   tcl_Eval("set AS %s", buffer);
    //   tcl_Eval("set AS %s", routelist.as);
    tcl_Eval("set ROUTE %s", vr->route.get_text(buffer));
    tcl_Eval("set DATE %s", configure.date);
@@ -123,7 +124,8 @@ void RoeObject::add(int index) {
    RouteList::Route *vr = routelist(index);
 
    // Modified by wlee@isi.edu
-   tcl_Eval("set AS AS%d", routelist.as);
+   asnum_string(buffer, routelist.as);
+   tcl_Eval("set AS %s", buffer);
    //   tcl_Eval("set AS %s", routelist.as);
    tcl_Eval("set ROUTE %s", vr->route.get_text(buffer));
    tcl_Eval("set DATE %s", configure.date);
@@ -140,7 +142,8 @@ void RoeObject::upd(int index) {
    RouteList::Route *vr = routelist(index);
 
    // Modified by wlee@isi.edu
-   tcl_Eval("set AS AS%d", routelist.as);
+   asnum_string(buffer, routelist.as);
+   tcl_Eval("set AS %s", buffer);
    //   tcl_Eval("set AS %s", routelist.as);
    tcl_Eval("set ROUTE %s", vr->route.get_text(buffer));
    tcl_Eval("set DATE %s", configure.date);