Index: openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	15 Sep 2001 00:32:45 -0000	1.1
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	9 Sep 2013 17:34:17 -0000	1.2
@@ -35,7 +35,7 @@
                  if { $table_name == $selected_table_name } {
                      append return_string "<td><b>[string tolower $table_name]</b></td>"
 	         } else {
-                     append return_string "<td><a href=\"index?[export_url_vars table_name]\">[string tolower $table_name]</a></td>"
+                     append return_string "<td><a href=\"index?[export_vars -url {table_name}]\">[string tolower $table_name]</a></td>"
                  }
 	     }
           
@@ -62,7 +62,7 @@
         where
              table_name = upper(:table_name)
     " {
-        append return_string "\n--\t<a href=\"trigger?[export_url_vars trigger_name]\">$trigger_name</a> $triggering_event $trigger_type $status"
+        append return_string "\n--\t<a href=\"trigger?[export_vars -url {trigger_name}]\">$trigger_name</a> $triggering_event $trigger_type $status"
     } if_no_rows {
         append return_string "\n--\tnone"
     }