Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.38.2.9 -r1.38.2.10
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	9 Apr 2021 07:00:35 -0000	1.38.2.9
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	14 Jan 2022 10:38:00 -0000	1.38.2.10
@@ -979,7 +979,7 @@
   @return 1 if the content is null, 0 otherwise
 
 } {
-    set content_test [db_string cin_get_content ""]
+    set content_test [db_string cin_get_content {} -default ""]
 
     return [expr {$content_test eq ""}]
 }
Index: openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl,v
diff -u -r1.13.2.5 -r1.13.2.6
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	6 Mar 2021 19:17:25 -0000	1.13.2.5
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	14 Jan 2022 10:38:00 -0000	1.13.2.6
@@ -159,7 +159,52 @@
             aa_equals "Items $index_item_id is index in a folder $first_folder_id" \
                 $index_item_id [content::folder::get_index_page -folder_id $first_folder_id]
 
+            aa_false "Item $index_item_id is not null" \
+                [content::item::content_is_null [db_string rev {
+                    select live_revision from cr_items
+                    where item_id = :index_item_id
+                }]]
+
             #########################################################
+            # create an empty cr_item
+            #########################################################
+
+            set empty_item_id [content::item::new \
+                                   -name emptyboi \
+                                   -parent_id $first_folder_id \
+                                   -is_live "t"]
+
+            aa_false "Empty item $empty_item_id has no revision" \
+                [db_0or1row rev {
+                    select revision_id from cr_revisions
+                    where item_id = :empty_item_id
+                }]
+
+            set empty_item_id [content::item::new \
+                                   -name emptyboi2 \
+                                   -parent_id $first_folder_id \
+                                   -is_live "t" \
+                                   -text "I will be empty"]
+
+            aa_false "Empty item $empty_item_id is not null before emptying" \
+                [content::item::content_is_null [db_string rev {
+                    select live_revision from cr_items
+                    where item_id = :empty_item_id
+                }]]
+
+            db_dml empty_the_boi {
+                update cr_revisions set
+                content = null
+                where item_id = :empty_item_id
+            }
+
+            aa_true "Empty item $empty_item_id is now null" \
+                [content::item::content_is_null [db_string rev {
+                    select live_revision from cr_items
+                    where item_id = :empty_item_id
+                }]]
+
+            #########################################################
             # create a cr_item with evil string
             #########################################################
 
@@ -330,6 +375,12 @@
                                  -parent_id $first_folder_id \
                                  -tmp_filename $::acs::rootdir/packages/acs-content-repository/tcl/test/test.html]
 
+            aa_true "Item $tmp_item_id counts as null" \
+                [content::item::content_is_null [db_string rev {
+                    select live_revision from cr_items
+                    where item_id = :tmp_item_id
+                }]]
+
             aa_true "Tmp_filename added cr_item exists" \
                 {[content::item::get_id \
                             -item_path $tmp_item_name \