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.22 -r1.23
--- openacs-4/packages/simulation/tcl/template-procs.tcl	17 Dec 2003 16:51:24 -0000	1.22
+++ openacs-4/packages/simulation/tcl/template-procs.tcl	17 Dec 2003 19:13:42 -0000	1.23
@@ -54,6 +54,13 @@
             array set row [array get org_row]
         }
     }
+    switch $operation {
+        insert {
+            if { ![exists_and_not_null row(sim_type)] } {
+                set row(sim_type) "dev_template"
+            }
+        }
+    }
 
     # Parse column values
     switch $operation {