Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl	27 Oct 2014 16:39:54 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete.tcl	27 Jun 2015 16:03:13 -0000	1.4
@@ -18,7 +18,7 @@
     counts:onerow
 }
 
-set context [list [list "" "Relationship types"] [list one?[export_vars rel_type] "One type"] "Delete type"]
+set context [list [list "" "Relationship types"] [[export_vars -base one rel_type] "One type"] "Delete type"]
 
 set rel_type_pretty_name [db_string select_pretty_name {
     select t.pretty_name