Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.56 -r1.57
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	28 Feb 2008 07:53:28 -0000	1.56
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	14 Mar 2008 10:29:05 -0000	1.57
@@ -73,9 +73,9 @@
   require set postgresql_table_exists {select 1 from pg_tables   where tablename  = '$name'}
   require set postgresql_view_exists  {select 1 from pg_views    where viewname   = '$name'}
   require set postgresql_index_exists {select 1 from pg_indexes  where indexname  = '$name'}
-  require set oracle_table_exists     {select 1 from all_tables  where table_name = '$name'}
-  require set oracle_view_exists      {select 1 from all_views   where view_name  = '$name'}
-  require set oracle_index_exists     {select 1 from all_indexes where index_name = '$name'}
+  require set oracle_table_exists     {select 1 from user_tables  where table_name = '$name'}
+  require set oracle_view_exists      {select 1 from user_views   where view_name  = '$name'}
+  require set oracle_index_exists     {select 1 from user_indexes where index_name = '$name'}
 
   require proc table {name definition} {
     if {[db_driverkey ""] eq "oracle"} {set name [string toupper $name]}