Index: openacs-4/contrib/packages/simulation/www/siminst/wizard.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/wizard.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/contrib/packages/simulation/www/siminst/wizard.tcl	7 Jan 2004 12:22:40 -0000	1.4
+++ openacs-4/contrib/packages/simulation/www/siminst/wizard.tcl	7 Jan 2004 14:46:04 -0000	1.5
@@ -54,12 +54,19 @@
     participants_complete {
         set progress 5
     }
+    casting {
+        set progress 6
+        set lowest_available 5
+    }
     default {
         error "Unknown state: $state"
     }
 }
 
 set highest_available [expr $progress + 1]
+if { $highest_available > 6 } {
+    set highest_available 6
+}
 
 wizard get_current_step -start $highest_available