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 -r1.170 -r1.171
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Oct 2003 13:22:51 -0000	1.170
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Oct 2003 16:41:42 -0000	1.171
@@ -527,9 +527,7 @@
                     <center>
                     [_ new-portal.lt_No_Elements_on_this_p]
                     <form method=post action=@action_string@>
-                    <input type=hidden name=portal_id value=$portal_id>
-                    <input type=hidden name=page_id value=$page_id>
-                    <input type=hidden name=return_url value=@return_url@>
+                    [export_vars -form { portal_id page_id return_url { anchor $page_id } }]
                     <input type=submit name=\"op_remove_empty_page\" value=\"[_ new-portal.Remove_Empty_Page]\">
                     </form>
                     </center>