Index: openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl,v
diff -u -r1.12.2.3 -r1.12.2.4
--- openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	22 Nov 2019 20:18:39 -0000	1.12.2.3
+++ openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	17 Dec 2019 13:07:46 -0000	1.12.2.4
@@ -57,10 +57,10 @@
     }
 
 } on_error {
-    if {[db_string instance_delete_doubleclick_ck {
-        select decode(count(*), 0, 0, 1) from apm_packages
+    if {[db_0or1row instance_delete_doubleclick_ck {
+        select 1 from apm_packages
         where package_id = :package_id
-    } -default 0]} {
+    }]} {
         ad_return_error "Error Deleting Instance" "The following error was returned:
         <blockquote><pre>[ns_quotehtml $errmsg]</pre></blockquote>"
     }