adns wip

[chiark-tcl.git] / base / idtable.c

diff --git a/base/idtable.c b/base/idtable.c
index d2f3e04a59040ea2961d0a7ac6c4a81a503406b5..ed5e5e61287144ecfcce1e0b2c587abd4f731af6 100644 (file)
--- a/base/idtable.c
+++ b/base/idtable.c
@@ -110,7 +110,7 @@ static void tabledataid_nt_ustr(Tcl_Obj *o) {
   char buf[75];
   const char *prefix;
 
-  prefix= o->internalRep.twoPtrValue.ptr2;
+  prefix= ((IdDataTable*)o->internalRep.twoPtrValue.ptr1)->prefix;
   snprintf(buf,sizeof(buf), "%lu",
           *(unsigned long*)o->internalRep.twoPtrValue.ptr2);
   obj_updatestr_vstringls(o,