Index: openacs-4/packages/assessment/www/admin/asm-action-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/admin/asm-action-new.tcl	12 Jun 2006 02:49:51 -0000	1.8
+++ openacs-4/packages/assessment/www/admin/asm-action-new.tcl	27 Oct 2014 16:40:59 -0000	1.9
@@ -4,7 +4,7 @@
     @date 07-01-2005
     @cvs-id $Id:
 } {
-    action_id:optional
+    action_id:naturalnum,optional
 }
 
 set package_id [ad_conn package_id]
@@ -39,7 +39,7 @@
     }
 
 } -validate {
-    {tcl_code {![empty_string_p $tcl_code]} "[_ assessment.error_enter_tcl_code]"}
+    {tcl_code {$tcl_code ne ""} "[_ assessment.error_enter_tcl_code]"}
 
 } -select_query {
     	select name,description,tcl_code