Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	19 Aug 2024 11:50:46 -0000	1.32
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	19 Aug 2024 11:52:20 -0000	1.33
@@ -274,7 +274,7 @@
         upvar pa pa
 
         if { [catch {
-            if {[empty_string_p [ad_conn -get revision_id]]} {
+            if {[ad_conn -get revision_id] eq ""} {
                 # asking for the live published revision
                 set code "etp::get_pa $package_id $name $content_type"
                 array set pa [util_memoize $code $max_age]
Index: openacs-4/packages/edit-this-page/www/etp-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-edit.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/edit-this-page/www/etp-edit.tcl	19 Aug 2024 11:50:46 -0000	1.18
+++ openacs-4/packages/edit-this-page/www/etp-edit.tcl	19 Aug 2024 11:52:20 -0000	1.19
@@ -142,7 +142,7 @@
 	# encapsulated in the query file.    So maybe it's not quite as ugly a hack
 	# as I make it out to be ... you decide!
 
-	if { ![empty_string_p [db_map update_${attribute}_attribute_clob]] } {
+	if { [db_map update_${attribute}_attribute_clob] ne "" } {
 	    db_dml update_${attribute}_attribute_clob "" -blobs  [list $value]
 	} else {
 	    db_dml update_attribute ""