Index: openacs-4/contrib/misc/wizard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/misc/wizard-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/misc/wizard-procs.tcl	10 Jul 2003 16:30:52 -0000	1.1
+++ openacs-4/contrib/misc/wizard-procs.tcl	16 Jul 2003 15:52:09 -0000	1.2
@@ -57,7 +57,11 @@
 
   set steps [list]
   set rowcount 0
-  set wizard_name $opts(name)
+  if {![string equal "" [array names opts name]]} {
+      set wizard_name $opts(name)
+  } else {
+      set wizard_name "wizard${level}"
+  }
   set wizards [get_wizards]
 
   # lets add the visited step param