Index: openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql	30 May 2002 18:08:05 -0000	1.1
+++ openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql	24 Jun 2002 21:10:46 -0000	1.2
@@ -130,7 +130,7 @@
         then
             return '000000';
         else
-            return (int_to_hex(hex_to_int(tree_key) +1));
+            return (lpad(int_to_hex(hex_to_int(tree_key) + 1)), 6, '0');
         end if;
     end increment_key;
 
@@ -140,7 +140,7 @@
     ) return raw
     is
     begin
-        return parent_key || lpad(increment_key(max_child_key), 6, '0');
+        return parent_key || increment_key(max_child_key);
     end next_key;
 
     function left (
