Index: openacs-4/packages/contacts-lite/www/phones/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-lite/www/phones/delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts-lite/www/phones/delete.tcl	20 Jan 2021 18:35:37 -0000	1.1
+++ openacs-4/packages/contacts-lite/www/phones/delete.tcl	20 Jan 2021 21:17:08 -0000	1.2
@@ -10,9 +10,9 @@
    phone_number_id:integer,notnull
 }  -validate {
     phone_exists -requires {phone_number_id} {
-	if ![db_0or1row phone_exists {
+	if {![db_0or1row phone_exists {
 	    select 1 from cn_phone_numbers where phone_number_id = :phone_number_id
-	}] {
+	}]} {
 	    ad_complain "phone $phone_number_id does not exist"
 	    return 0
 	}