Index: openacs-4/packages/contacts/tcl/view-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/Attic/view-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/contacts/tcl/view-procs.tcl	16 Aug 2004 20:36:38 -0000	1.1.2.2
+++ openacs-4/packages/contacts/tcl/view-procs.tcl	19 Aug 2004 01:02:10 -0000	1.1.2.3
@@ -74,7 +74,7 @@
         initialize views
     } {
 
-        if { ![db_0or1row views_exist_p { select '1' from contact_views limit 1 } ] } {
+        if { [string is false [db_0or1row views_exist_p { select '1' from contact_views limit 1 } ]] } {
 
             db_1row get_package_id { select package_id from apm_packages where package_key = 'contacts' }