Index: openacs-4/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simulation/tcl/template-procs.tcl	28 Nov 2003 16:55:52 -0000	1.5
+++ openacs-4/packages/simulation/tcl/template-procs.tcl	1 Dec 2003 10:16:56 -0000	1.6
@@ -22,9 +22,8 @@
 
     @author Peter Marklund
 } {
-    if { ![exists_and_not_null ready_p] } {
-        set ready_p "f"
-    }
+    set ready_p [db_boolean [template::util::is_true $ready_p]]
+
     db_transaction {
         set short_name [util_text_to_url -replacement "_" $short_name]