Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy-2.tcl	6 Sep 2002 21:50:16 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy-2.tcl	6 Sep 2002 22:19:49 -0000	1.4
@@ -61,7 +61,7 @@
 ReturnHeaders
 ns_write "[ad_header "Copying Process..."]
 <h2>Copying Process...</h2>
-[list [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] "Copy process"]
+[ad_context_bar [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] "Copy process"]
 <hr>
 
 <pre>
Index: openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl	6 Sep 2002 21:49:59 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl	6 Sep 2002 22:19:32 -0000	1.3
@@ -13,7 +13,7 @@
 set page "
 [ad_admin_header $title]
 <h2>$title</h2>
-[list [list "./index" "Object Type Administration"] $title]
+[ad_context_bar [list "./index" "Object Type Administration"] $title]
 <hr>
 <ul>"
 
Index: openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl	6 Sep 2002 21:49:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl	6 Sep 2002 22:19:32 -0000	1.4
@@ -13,7 +13,7 @@
 set page "
 [ad_admin_header $title]
 <h2>$title</h2>
-[list $title]
+[ad_context_bar $title]
 <hr>
 <ul>"
 
Index: openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	6 Sep 2002 21:49:59 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	6 Sep 2002 22:19:32 -0000	1.5
@@ -38,7 +38,7 @@
 set page "
 [ad_admin_header $title]
 <h2>$title</h2>
-[list [list "./index" "Object Type Administration"] $title]
+[ad_context_bar [list "./" "Object Type Administration"] $title]
 <hr>
 <ul>"
 
Index: openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl	6 Sep 2002 21:50:14 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl	6 Sep 2002 22:19:33 -0000	1.3
@@ -25,7 +25,7 @@
 if {$admin_p} {
     set context [list [list "./?user_id=$user_id" "User's Portrait"] "Erase"]
 } else {
-    set context [list_ws [list "./" "Your Portrait"] "Erase"]
+    set context [list [list "./" "Your Portrait"] "Erase"]
 }
 
 set export_vars [export_form_vars user_id return_url]