Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	17 Oct 2003 09:04:38 -0000	1.13
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	24 Oct 2003 16:03:33 -0000	1.14
@@ -124,8 +124,8 @@
   # Get the mime type, decide if we want the text
   get_mime_info $revision_id
 
-  if { [string equal \
-           [lindex [split $mime_info(mime_type) "/"] 0] "text"] } {
+  if { [exists_and_not_null mime_info(mime_type)] && \
+           [string equal [lindex [split $mime_info(mime_type) "/"] 0] "text"] } {
       set text_sql [db_map grc_get_all_content_1]
   } else {
       set text_sql ""