Index: openacs-4/packages/wp-slim/www/edit-slide-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/wp-slim/www/edit-slide-2.tcl	6 Sep 2002 15:32:23 -0000	1.4
+++ openacs-4/packages/wp-slim/www/edit-slide-2.tcl	17 May 2003 12:50:50 -0000	1.5
@@ -13,7 +13,6 @@
     postamble:html
     sort_key
     original_slide_id
-    array_max
     button
     bullet:array,html
     bullet_num:integer
@@ -30,7 +29,7 @@
 
 # construct the list of bullet_items
 set bullet_items [list]
-for {set index 1} {$index < [expr $bullet_num + 2]} {incr index} {
+for {set index 1} {$index < [expr $bullet_num + 1]} {incr index} {
     if {![empty_string_p $bullet($index)]} {
         lappend bullet_items $bullet($index)
     }