Index: openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	21 Nov 2001 05:20:31 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	4 Feb 2002 18:52:12 -0000	1.5
@@ -128,7 +128,7 @@
                  start with t.object_type=:start_with
                connect by prior t.object_type = t.supertype) t 
          where a.object_type = :object_type
-           and t.object_type = a.object_type $storage_clause
+           and t.object_type = a.ancestor_type $storage_clause
          order by type_level
       </querytext>
 </fullquery>