Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -N -r1.158 -r1.159
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Oct 2002 12:27:17 -0000	1.158
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	24 Oct 2002 14:25:28 -0000	1.159
@@ -1028,7 +1028,7 @@
             lappend ad_dim_struct [list $page_num $pretty_name [list]]
         }
 
-        set ad_dim_struct "{ page_num \"[_ new-portal.Page_1]\" 0 [list $ad_dim_struct] }"
+        set ad_dim_struct "{ page_num [list [_ new-portal.Page_1]] 0 [list $ad_dim_struct] }"
 
         return [dimensional -no_header \
                 -no_bars \