Index: openacs-4/packages/views/tcl/views-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/views/tcl/views-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/views/tcl/views-procs.tcl	10 Jan 2007 06:06:13 -0000	1.3
+++ openacs-4/packages/views/tcl/views-procs.tcl	4 May 2007 11:54:05 -0000	1.4
@@ -24,8 +24,9 @@
     @author Jeff Davis davis@xarg.net
     @creation-date 2004-01-30
 } {
-    set views [db_string record_view "select views__record_view(:object_id, :viewer_id)" -default 1]
-
+    if {[catch {db_string record_view "select views__record_view(:object_id, :viewer_id)" -default 1} views]} {
+	set views 0
+    }
     return $views
 }