Index: openacs-4/packages/ecommerce/www/admin/cat/category.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/ecommerce/www/admin/cat/category.tcl	25 Sep 2008 12:34:57 -0000	1.8
+++ openacs-4/packages/ecommerce/www/admin/cat/category.tcl	25 Sep 2008 12:45:22 -0000	1.9
@@ -49,7 +49,7 @@
     set old_sort_key $sort_key
     append subcat_info_loop_html "<tr><td> <a href=\"subcategory?[export_url_vars category_id category_name subcategory_id subcategory_name]\">$subcategory_name</a> </td>"
 }
-set sort_key [expr { $old_sort_key + ( $old_sort_key * 3 / $subcategory_counter ) } ]
+set sort_key [expr { $old_sort_key + round( $old_sort_key * 3 / ( $subcategory_counter + 1.)  ) } ]
 append subcat_info_loop_html "<td> <a href=\"subcategory-add-0?[export_url_vars category_id category_name]&prev_sort_key=$old_sort_key&next_sort_key=$sort_key\">insert after</a> </td><td> &nbsp; </td></tr>\n"
 
 set subcat_add_html " <a href=\"subcategory-add-0?[export_url_vars category_id category_name]&prev_sort_key=1&next_sort_key=2\">Add a subcategory</a>."