Index: openacs-4/packages/contacts-lite/www/addresses/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-lite/www/addresses/one.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts-lite/www/addresses/one.tcl 20 Jan 2021 18:35:37 -0000 1.1 +++ openacs-4/packages/contacts-lite/www/addresses/one.tcl 20 Jan 2021 21:17:08 -0000 1.2 @@ -9,7 +9,7 @@ contact_id:integer,notnull } -validate { address_exists -requires {address_id} { - if ![db_0or1row address_exists { }] { + if {![db_0or1row address_exists {}]} { ad_complain "Address $address_id does not exist" return 0 }