Index: openacs-4/packages/calendar/www/cal-item-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-delete.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/calendar/www/cal-item-delete.tcl	7 Aug 2017 23:48:05 -0000	1.8
+++ openacs-4/packages/calendar/www/cal-item-delete.tcl	22 Oct 2023 16:30:01 -0000	1.8.2.1
@@ -6,7 +6,7 @@
 } {
     cal_item_id:naturalnum,notnull
     {return_url:localurl "view"}
-    {confirm_p:boolean 0}
+    {confirm_p:boolean,notnull 0}
 }
 
 permission::require_permission -object_id $cal_item_id -privilege delete
Index: openacs-4/packages/calendar/www/view-list-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v
diff -u -r1.41.2.9 -r1.41.2.10
--- openacs-4/packages/calendar/www/view-list-display.tcl	30 Mar 2023 15:17:01 -0000	1.41.2.9
+++ openacs-4/packages/calendar/www/view-list-display.tcl	22 Oct 2023 16:30:01 -0000	1.41.2.10
@@ -8,7 +8,7 @@
     @param export may be "print"
 } {
     {period_days:range(1|99999),notnull "[parameter::get -parameter ListView_DefaultPeriodDays -default 31]"}
-    {show_calendar_name_p:boolean 1}
+    {show_calendar_name_p:boolean,notnull 1}
     {sort_by:token "start_date"}
     {{start_date:clock(%Y-%m-%d|%Y-%m-%d %H:%M|%Y-%m-%d %H:%M:%S)} {[clock format [clock seconds] -format "%Y-%m-%d 00:00:00"]}}
     {calendar_id_list ""}
Index: openacs-4/packages/calendar/www/view-month-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v
diff -u -r1.29.2.2 -r1.29.2.3
--- openacs-4/packages/calendar/www/view-month-display.tcl	23 Mar 2023 17:12:41 -0000	1.29.2.2
+++ openacs-4/packages/calendar/www/view-month-display.tcl	22 Oct 2023 16:30:01 -0000	1.29.2.3
@@ -8,7 +8,7 @@
       export: may be "print"
 } {
     {date ""}
-    {show_calendar_name_p:boolean 1}
+    {show_calendar_name_p:boolean,notnull 1}
     {calendar_id_list ""}
     {export ""}
     {return_url:optional}
Index: openacs-4/packages/calendar/www/view-print-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-print-display.tcl,v
diff -u -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/calendar/www/view-print-display.tcl	14 Jul 2022 15:45:01 -0000	1.2.2.2
+++ openacs-4/packages/calendar/www/view-print-display.tcl	22 Oct 2023 16:30:01 -0000	1.2.2.3
@@ -9,7 +9,7 @@
 
 } {
     items
-    {show_calendar_name_p:boolean true}
+    {show_calendar_name_p:boolean,notnull true}
 }
 
 # Local variables:
Index: openacs-4/packages/calendar/www/view-week-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.tcl,v
diff -u -r1.31 -r1.31.2.1
--- openacs-4/packages/calendar/www/view-week-display.tcl	23 Apr 2018 12:42:01 -0000	1.31
+++ openacs-4/packages/calendar/www/view-week-display.tcl	22 Oct 2023 16:30:01 -0000	1.31.2.1
@@ -8,7 +8,7 @@
       export: may be "print"
 } {
     {date}
-    {show_calendar_name_p:boolean 1}
+    {show_calendar_name_p:boolean,notnull 1}
     {calendar_id_list ""}
     {cal_system_type ""}
     {export ""}
Index: openacs-4/packages/dotlrn/www/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v
diff -u -r1.18.2.3 -r1.18.2.4
--- openacs-4/packages/dotlrn/www/user-add-2.tcl	3 Dec 2019 17:15:14 -0000	1.18.2.3
+++ openacs-4/packages/dotlrn/www/user-add-2.tcl	22 Oct 2023 16:30:01 -0000	1.18.2.4
@@ -25,10 +25,10 @@
     password:optional
     {referer "/acs-admin/users"}
     type
-    can_browse_p:boolean
-    read_private_data_p:boolean
-    dotlrn_interactive_p:boolean
-    add_membership_p:boolean
+    can_browse_p:boolean,notnull
+    read_private_data_p:boolean,notnull
+    dotlrn_interactive_p:boolean,notnull
+    add_membership_p:boolean,notnull
 } -properties {
     context_bar:onevalue
     export_vars:onevalue
@@ -63,7 +63,7 @@
 
         if {!${dotlrn_interactive_p}} {
             # make the user a dotLRN user
-            dotlrn::user_add -type $type -can_browse\=$can_browse_p -user_id $user_id
+            dotlrn::user_add -type $type -can_browse=$can_browse_p -user_id $user_id
         }
     }
 }
Index: openacs-4/packages/dotlrn/www/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v
diff -u -r1.37 -r1.37.2.1
--- openacs-4/packages/dotlrn/www/user-add.tcl	29 Jun 2018 17:27:19 -0000	1.37
+++ openacs-4/packages/dotlrn/www/user-add.tcl	22 Oct 2023 16:30:01 -0000	1.37.2.1
@@ -24,10 +24,10 @@
     @cvs-id $Id$
 } -query {
     {type student}
-    {can_browse_p:boolean 0}
-    {read_private_data_p:boolean f}
-    {add_membership_p:boolean t}
-    {dotlrn_interactive_p:boolean 0}
+    {can_browse_p:boolean,notnull 0}
+    {read_private_data_p:boolean,notnull f}
+    {add_membership_p:boolean,notnull t}
+    {dotlrn_interactive_p:boolean,notnull 0}
     {referer members}
 } -properties {
     context_bar:onevalue
Index: openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.8.2.1
+++ openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl	22 Oct 2023 16:30:01 -0000	1.8.2.2
@@ -14,23 +14,21 @@
 #  details.
 #
 
-# dotlrn/www/admin/browse-toggle.tcl
-
 ad_page_contract {
     @author Caroline Meeks (caroline@meekshome.com)
     @creation-date November 19, 2002
     @cvs-id $Id$
 } -query {
     user_id:naturalnum,notnull
-    can_browse_p:boolean
+    {can_browse_p:boolean,notnull 0}
     {referer:localurl "users"}
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
 dotlrn::require_admin 
 
 #update can_browse_p
-dotlrn::set_can_browse -user_id $user_id -can_browse\=$can_browse_p
+dotlrn::set_can_browse -user_id $user_id -can_browse=$can_browse_p
 
 #
 # Flush all permission checks pertaining to this user.
Index: openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.8.2.1
+++ openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	22 Oct 2023 16:30:01 -0000	1.8.2.2
@@ -14,15 +14,13 @@
 #  details.
 #
 
-# dotlrn/www/admin/site-wide-admin-toggle.tcl
-
 ad_page_contract {
     @author Caroline Meeks (caroline@meekshome.com)
     @creation-date November 19, 2002
     @cvs-id $Id$
 } -query {
     user_id:naturalnum,notnull
-    guest_p:boolean
+    {guest_p:boolean,notnull 0}
     {referer:localurl "users"}
 }
 
Index: openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl	10 Aug 2019 18:27:03 -0000	1.5.2.2
+++ openacs-4/packages/evaluation/www/admin/grades/distribution-edit-2.tcl	22 Oct 2023 16:30:01 -0000	1.5.2.3
@@ -1,15 +1,13 @@
-# /packages/evaluation/www/admin/grades/distribution-edit-2.tcl
-
 ad_page_contract { 
     Bulk edit a set tasks
 } { 
     grade_id:naturalnum,notnull
     no_grade:array
     weights:array
     {weight_sum "0"}
-    {points_p:boolean "0"}
+    {points_p:boolean,notnull 0}
     {info ""}
-    {relative_p:boolean 0}
+    {relative_p:boolean,notnull 0}
 } -validate {
     valid_weights {
 	db_1row grade_info { *SQL* }
Index: openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl,v
diff -u -r1.22 -r1.22.2.1
--- openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl	7 Aug 2017 23:48:10 -0000	1.22
+++ openacs-4/packages/evaluation/www/admin/tasks/solution-add-edit.tcl	22 Oct 2023 16:30:01 -0000	1.22.2.1
@@ -16,7 +16,7 @@
     {solution_mode "edit"}
     grade_id:naturalnum,notnull
     return_url:localurl
-    {attached_p:boolean "f"}
+    {attached_p:boolean,notnull f}
 }
 
 set package_id [ad_conn package_id]
Index: openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl,v
diff -u -r1.35.2.2 -r1.35.2.3
--- openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl	23 Mar 2023 17:22:30 -0000	1.35.2.2
+++ openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl	22 Oct 2023 16:30:01 -0000	1.35.2.3
@@ -1,5 +1,3 @@
-# /packages/evaluation/www/admin/tasks/task-add-edit.tcl
-
 ad_page_contract {
     Page for editing and adding tasks.
 
@@ -16,7 +14,7 @@
     return_url:localurl
     admin_groups_p:boolean,optional
     {add_to_more_classes_p:boolean ""}
-    {attached_p:boolean "f"}
+    {attached_p:boolean,notnull "f"}
     {enable 1}
     {return_p:boolean ""}
     {simple_p:boolean ""}
Index: openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl	7 Aug 2017 23:48:10 -0000	1.12
+++ openacs-4/packages/evaluation/www/admin/tasks/task-add-to-communities.tcl	22 Oct 2023 16:30:01 -0000	1.12.2.1
@@ -11,7 +11,7 @@
     task_id:naturalnum,notnull
     communities_packages_ids:array,optional
     item_ids:array,optional
-    {redirect_to_groups_p:boolean 0}
+    {redirect_to_groups_p:boolean,notnull 0}
     foo:optional
 }
 
Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -r1.11.2.7 -r1.11.2.8
--- openacs-4/packages/file-storage/www/copy.tcl	27 Jan 2022 09:23:59 -0000	1.11.2.7
+++ openacs-4/packages/file-storage/www/copy.tcl	22 Oct 2023 16:30:01 -0000	1.11.2.8
@@ -11,8 +11,8 @@
     folder_id:naturalnum,optional
     {return_url:localurl ""}
     {root_folder_id:integer ""}
-    {redirect_to_folder:boolean 0}
-    {show_items:boolean 0}
+    {redirect_to_folder:boolean,notnull 0}
+    {show_items:boolean,notnull 0}
 } -errors {object_id:,notnull,integer,multiple {Please select at least one item to copy.}
 }
 
Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.28.2.8 -r1.28.2.9
--- openacs-4/packages/file-storage/www/file-add.tcl	27 Jan 2023 11:59:05 -0000	1.28.2.8
+++ openacs-4/packages/file-storage/www/file-add.tcl	22 Oct 2023 16:30:01 -0000	1.28.2.9
@@ -12,7 +12,7 @@
     upload_file.tmpfile:tmpfile,optional
     content_body:optional
     {title ""}
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
     {name ""}
 
 } -properties {
Index: openacs-4/packages/file-storage/www/folder-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-add.tcl,v
diff -u -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/file-storage/www/folder-add.tcl	21 Jul 2020 14:06:40 -0000	1.9.2.1
+++ openacs-4/packages/file-storage/www/folder-add.tcl	22 Oct 2023 16:30:01 -0000	1.9.2.2
@@ -8,7 +8,7 @@
     folder_id:naturalnum,optional,notnull
     upload_folder:trim,optional
     return_url:localurl,optional
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
 
 } -properties {
     folder_id:onevalue
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.61.2.19 -r1.61.2.20
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	25 Sep 2023 15:44:00 -0000	1.61.2.19
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	22 Oct 2023 16:30:01 -0000	1.61.2.20
@@ -5,7 +5,7 @@
 } {
     orderby:token,optional
     {folder_id:integer ""}
-    {allow_bulk_actions:boolean true}
+    {allow_bulk_actions:boolean,notnull true}
     {category_id:integer ""}
     {n_past_days:naturalnum ""}
     {fs_url:localurl "[ad_conn package_url]"}
Index: openacs-4/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v
diff -u -r1.17.2.5 -r1.17.2.6
--- openacs-4/packages/file-storage/www/folder-delete.tcl	7 Feb 2022 14:47:25 -0000	1.17.2.5
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	22 Oct 2023 16:30:01 -0000	1.17.2.6
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 } {
     folder_id:naturalnum,notnull
-    {confirmed_p:boolean "f"}
+    {confirmed_p:boolean,notnull "f"}
 } -validate {
     valid_folder -requires {folder_id:integer} {
         if {![fs_folder_p $folder_id]} {
Index: openacs-4/packages/file-storage/www/folder-zip-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-zip-add.tcl,v
diff -u -r1.11.2.11 -r1.11.2.12
--- openacs-4/packages/file-storage/www/folder-zip-add.tcl	27 Nov 2022 10:52:26 -0000	1.11.2.11
+++ openacs-4/packages/file-storage/www/folder-zip-add.tcl	22 Oct 2023 16:30:01 -0000	1.11.2.12
@@ -14,7 +14,7 @@
     {return_url:localurl ""}
     upload_file.tmpfile:tmpfile,optional
     {title ""}
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
 
 } -properties {
 
Index: openacs-4/packages/file-storage/www/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v
diff -u -r1.12.2.5 -r1.12.2.6
--- openacs-4/packages/file-storage/www/move.tcl	27 Jan 2022 09:23:59 -0000	1.12.2.5
+++ openacs-4/packages/file-storage/www/move.tcl	22 Oct 2023 16:30:01 -0000	1.12.2.6
@@ -11,8 +11,8 @@
     folder_id:naturalnum,optional
     {return_url:localurl ""}
     {root_folder_id:integer ""}
-    {redirect_to_folder:boolean 0}
-    {show_items:boolean 0}
+    {redirect_to_folder:boolean,notnull 0}
+    {show_items:boolean,notnull 0}
 } -errors {object_id:,notnull,integer,multiple {Please select at least one item to move.}
 }
 
Index: openacs-4/packages/file-storage/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.tcl,v
diff -u -r1.17.2.7 -r1.17.2.8
--- openacs-4/packages/file-storage/www/simple-add.tcl	3 Oct 2023 14:07:09 -0000	1.17.2.7
+++ openacs-4/packages/file-storage/www/simple-add.tcl	22 Oct 2023 16:30:01 -0000	1.17.2.8
@@ -11,7 +11,7 @@
     {title:printable ""}
     {description:printable ""}
     {url:printable ""}
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
 } -validate {
     valid_folder -requires {folder_id:integer} {
         if {![fs_folder_p $folder_id]} {
Index: openacs-4/packages/file-storage/www/version-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/version-delete.tcl,v
diff -u -r1.17.2.2 -r1.17.2.3
--- openacs-4/packages/file-storage/www/version-delete.tcl	18 Feb 2022 09:58:48 -0000	1.17.2.2
+++ openacs-4/packages/file-storage/www/version-delete.tcl	22 Oct 2023 16:30:01 -0000	1.17.2.3
@@ -6,7 +6,7 @@
     @cvs-id $Id$
 } {
     version_id:naturalnum,notnull
-    {confirmed_p:boolean "f"}
+    {confirmed_p:boolean,notnull "f"}
 } -validate {
     valid_version -requires {version_id} {
         if {![fs_version_p $version_id]} {
Index: openacs-4/packages/rss-support/www/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/delete-2.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/rss-support/www/delete-2.tcl	7 Aug 2017 23:48:29 -0000	1.6
+++ openacs-4/packages/rss-support/www/delete-2.tcl	22 Oct 2023 16:30:02 -0000	1.6.2.1
@@ -3,12 +3,12 @@
 } {
     subscr_id:notnull,naturalnum
     return_url:localurl,notnull
-    delete_file_p:boolean,optional
+    {delete_file_p:boolean,optional,notnull 0}
 }
 
 permission::require_permission -object_id $subscr_id -privilege admin
 
-if {[info exists delete_file_p]} {
+if {$delete_file_p} {
     file delete -- [rss_gen_report_file -subscr_id $subscr_id]
 }
 
Index: openacs-4/packages/survey/www/admin/question-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-2.tcl,v
diff -u -r1.8.4.3 -r1.8.4.4
--- openacs-4/packages/survey/www/admin/question-add-2.tcl	2 Sep 2021 16:41:02 -0000	1.8.4.3
+++ openacs-4/packages/survey/www/admin/question-add-2.tcl	22 Oct 2023 16:30:00 -0000	1.8.4.4
@@ -22,8 +22,8 @@
     question_text:html,notnull
     presentation_type
     {after:integer ""}
-    {required_p:boolean t}
-    {active_p:boolean t}
+    {required_p:boolean,notnull t}
+    {active_p:boolean,notnull t}
     {n_responses ""}
 
 }
Index: openacs-4/packages/survey/www/admin/question-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-3.tcl,v
diff -u -r1.9.4.3 -r1.9.4.4
--- openacs-4/packages/survey/www/admin/question-add-3.tcl	26 Jul 2023 16:38:07 -0000	1.9.4.3
+++ openacs-4/packages/survey/www/admin/question-add-3.tcl	22 Oct 2023 16:30:01 -0000	1.9.4.4
@@ -30,8 +30,8 @@
     {valid_responses ""}
     {textbox_size ""}
     {textarea_size "medium"}
-    {required_p:boolean t}
-    {active_p:boolean t}
+    {required_p:boolean,notnull t}
+    {active_p:boolean,notnull t}
     {responses:multiple ""}
     {scores:multiple,array,integer ""}
     {n_variables:integer ""}
Index: openacs-4/packages/survey/www/admin/responses-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses-export.tcl,v
diff -u -r1.13.4.3 -r1.13.4.4
--- openacs-4/packages/survey/www/admin/responses-export.tcl	9 Feb 2020 16:10:31 -0000	1.13.4.3
+++ openacs-4/packages/survey/www/admin/responses-export.tcl	22 Oct 2023 16:30:01 -0000	1.13.4.4
@@ -10,10 +10,10 @@
 } {
 
   survey_id:naturalnum,notnull
-  {unique_users_p:boolean f}
+  {unique_users_p:boolean,notnull f}
   on_what_id:naturalnum,optional
-  {start:naturalnum 1}
-  {end:naturalnum 10000}
+  {start:naturalnum,notnull 1}
+  {end:naturalnum,notnull 10000}
 }
 set csv_export ""
 set package_id [ad_conn package_id]
Index: openacs-4/packages/survey/www/admin/survey-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-toggle.tcl,v
diff -u -r1.5.4.2 -r1.5.4.3
--- openacs-4/packages/survey/www/admin/survey-toggle.tcl	9 Feb 2020 16:24:14 -0000	1.5.4.2
+++ openacs-4/packages/survey/www/admin/survey-toggle.tcl	22 Oct 2023 16:30:01 -0000	1.5.4.3
@@ -11,17 +11,13 @@
     @cvs-id $Id$
 } {
     survey_id:naturalnum,notnull
-    enabled_p:boolean
+    {enabled_p:boolean,notnull "f"}
     {target "./"}
 }
 
 permission::require_permission -object_id $survey_id -privilege survey_admin_survey
 
-if {$enabled_p == "f"} {
-    set enabled_p "t"
-} else {
-    set enabled_p "f"
-}
+set enabled_p [expr {$enabled_p ? "f" : "t"}]
 
 db_dml survey_active_toggle ""
 
Index: openacs-4/packages/attachments/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/attachments/www/file-add.tcl	7 Aug 2017 23:48:04 -0000	1.9
+++ openacs-4/packages/attachments/www/file-add.tcl	22 Oct 2023 16:33:55 -0000	1.9.2.1
@@ -10,7 +10,7 @@
     return_url:localurl,notnull
     pretty_object_name:notnull
     {title ""}
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
 } -validate {
     valid_folder -requires {folder_id:integer} {
 	if {![fs_folder_p $folder_id]} {
Index: openacs-4/packages/attachments/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/attachments/www/simple-add.tcl	7 Aug 2017 23:48:04 -0000	1.12
+++ openacs-4/packages/attachments/www/simple-add.tcl	22 Oct 2023 16:33:55 -0000	1.12.2.1
@@ -12,7 +12,7 @@
     pretty_object_name:notnull
     {type "fs_url"}
     {title ""}
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
 } -validate {
     valid_folder -requires {folder_id:integer} {
         if {![fs_folder_p $folder_id]} {
Index: openacs-4/packages/calendar/www/view-one-day-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v
diff -u -r1.46.2.1 -r1.46.2.2
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	30 Jan 2023 17:38:11 -0000	1.46.2.1
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	22 Oct 2023 16:33:55 -0000	1.46.2.2
@@ -10,9 +10,9 @@
       export: may be "print"
 } {
     {date}
-    {show_calendar_name_p:boolean 1}
-    {start_display_hour:integer 0}
-    {end_display_hour:integer 23}
+    {show_calendar_name_p:boolean,notnull 1}
+    {start_display_hour:integer,notnull 0}
+    {end_display_hour:integer,notnull 23}
     {calendar_id_list ""}
     {cal_system_type ""}
     {export ""}
Index: openacs-4/packages/categories/www/categories-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v
diff -u -r1.14.2.4 -r1.14.2.5
--- openacs-4/packages/categories/www/categories-browse.tcl	10 Mar 2021 13:21:39 -0000	1.14.2.4
+++ openacs-4/packages/categories/www/categories-browse.tcl	22 Oct 2023 16:37:51 -0000	1.14.2.5
@@ -9,9 +9,9 @@
 } {
     tree_ids:integer,multiple
     {category_ids:integer,multiple,optional ""}
-    {page:integer,optional 1}
+    {page:integer,optional,notnull 1}
     {orderby:token,optional object_name}
-    {subtree_p:boolean,optional f}
+    {subtree_p:boolean,optional,notnull f}
     {letter:optional all}
     {join:optional or}
     {package_id:naturalnum,optional ""}
Index: openacs-4/packages/categories/www/cadmin/tree-map-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map-2.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/categories/www/cadmin/tree-map-2.tcl	20 Dec 2019 21:18:10 -0000	1.12.2.1
+++ openacs-4/packages/categories/www/cadmin/tree-map-2.tcl	22 Oct 2023 16:37:51 -0000	1.12.2.2
@@ -13,7 +13,7 @@
     {category_id:naturalnum,optional ""}
     {locale:word ""}
     object_id:naturalnum,notnull
-    {edit_p:boolean 0}
+    {edit_p:boolean,notnull 0}
     ctx_id:naturalnum,optional
 }