Index: openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql	9 Jul 2002 17:34:58 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql	31 Jul 2002 16:30:51 -0000	1.1.1.2
@@ -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
