Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Jan 2007 17:29:57 -0000	1.72
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Jan 2007 11:36:07 -0000	1.73
@@ -121,7 +121,6 @@
     title
     text
     {folder_id -100}
-    {lang_links ""}
     {lang en}
     {render_adp 1}
     {absolute_links 0}
@@ -763,7 +762,7 @@
       [my info class] instvar $__v
     }
     set __ignorelist [list __v __ignorelist __varlist __template_variables__ \
-                          text item_id content]
+                          text item_id content lang_links]
     set __varlist [list]
     set __template_variables__ "<ul>\n"
     foreach __v [lsort [info vars]] {
@@ -839,6 +838,7 @@
 
   Page instproc render {-update_references:switch} {
     my instvar item_id revision_id references lang render_adp unresolved_references parent_id
+    my array set lang_links {found "" undefined ""}
     #my log "-- my class=[my info class]"
     set name [my set name]
     regexp {^(..):(.*)$} $name _ lang name
@@ -850,12 +850,6 @@
     if {$update_references || $unresolved_references > 0} {
       my update_references $item_id [lsort -unique $references]
     }
-    if {![my exists lang_links]} {
-      #my log "-- for some reason, no lang links"
-      my set lang_links ""
-    } else {
-      my set lang_links [join [my set lang_links] ", "]
-    }
     return [expr {$render_adp ? [my adp_subst $content] : $content}]
   }