Index: openacs-4/packages/news/www/admin/revision-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add-3.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/news/www/admin/revision-add-3.tcl	30 Sep 2013 10:51:35 -0000	1.11
+++ openacs-4/packages/news/www/admin/revision-add-3.tcl	27 Oct 2014 16:41:48 -0000	1.12
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } { 
-    item_id:integer
+    item_id:naturalnum,notnull
     publish_title:notnull
     publish_lead
     publish_body:allhtml,notnull,trim
@@ -24,7 +24,7 @@
 # Avoid any driver/bindvar nonsense regarding "." in a variable name
 set mime_type ${publish_body.format}
 
-if {$permanent_p eq "t"} {
+if {$permanent_p == "t"} {
     set archive_date_ansi [db_null]
 }