Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -r1.23.2.3 -r1.23.2.4
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	23 Apr 2017 20:16:13 -0000	1.23.2.3
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	23 Apr 2017 20:20:04 -0000	1.23.2.4
@@ -255,13 +255,11 @@
 
     } else {
 
-        # Build the list of A tags
+        # Build a list of anchor tags
 
-        set user_finite_state_links [list]
-
+        set user_finite_state_links {}
         foreach elm $user_finite_states {
-            set url [lindex $elm 0]
-            set label [lindex $elm 1]
+            lassign $elm url label
             lappend user_finite_state_links [subst {<a href="[ns_quotehtml $url]">$label</a>}]
         }