Index: openacs.org-dev/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/forums/tcl/messages-procs.tcl	9 Jul 2002 17:35:09 -0000	1.1.1.1
+++ openacs.org-dev/packages/forums/tcl/messages-procs.tcl	25 Jul 2002 18:47:15 -0000	1.1.1.2
@@ -114,11 +114,13 @@
         # Select the info into the upvar'ed Tcl Array
         upvar $array row
 
-        if {[forum::attachments_enabled_p]} {
-            db_1row select_message_with_attachment {} -column_array row
-        } else {
-            db_1row select_message {} -column_array row
+        set query select_message
+
+        if {[ad_conn isconnected] && [forum::attachments_enabled_p]} {
+            set query select_message_with_attachment
         }
+
+        db_1row $query {} -column_array row
     }
 
     ad_proc -private set_state {