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.102 -r1.103
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Jan 2002 23:55:23 -0000	1.102
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Jan 2002 00:26:10 -0000	1.103
@@ -464,6 +464,7 @@
 	    "Show Here" {
 		set region [ns_set get $form region]
 		set element_id [ns_set get $form element_id]
+		set page_id [ns_set get $form page_id]
 		
 		db_transaction {
 		    # The new element's sk will be the last in the region