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.3 -r1.4
--- openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql	25 Jun 2002 19:51:03 -0000	1.3
+++ openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql	29 Jul 2002 01:35:03 -0000	1.4
@@ -101,7 +101,7 @@
         v_remainder                     integer := p_int;
         v_current_div                   integer;
     begin
-        while v_remainder > 0 loop
+        while v_current_pow >= 1 loop
             v_current_div:= floor(v_remainder/v_current_pow);
 
             -- we're not prepending 0's