Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	26 Jan 2003 03:10:34 -0000	1.8.2.1
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	21 Feb 2003 10:53:40 -0000	1.8.2.2
@@ -248,6 +248,7 @@
     <li>revision_id
     <li>title
     <li>context_bar
+    <li>context
     <li>description
     <li>publish_date
     <li>content
@@ -320,8 +321,10 @@
     # add in the context bar
     if { $name == "index" } {
 	set cb [ad_context_bar]
+        set context [list]
     } else {
 	set cb [ad_context_bar $pa(title)] 
+        set context [list $pa(title)]
     }
     # remove the "Your Workspace" link, so we can cache this context
     # bar and it will work for everyone
@@ -332,6 +335,7 @@
 	set cb [lreplace $cb 0 1]
     }
     set pa(context_bar) $cb
+    set pa(context) $context
 
     return [array get pa]
 }