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 -r1.28 -r1.28.4.1
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	26 May 2010 16:03:28 -0000	1.28
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	30 Sep 2013 17:44:27 -0000	1.28.4.1
@@ -116,8 +116,10 @@
   # Get the mime type, decide if we want the text
   get_mime_info $revision_id
 
-  if { [exists_and_not_null mime_info(mime_type)] && \
-           [string equal [lindex [split $mime_info(mime_type) "/"] 0] "text"] } {
+  if { [info exists mime_info(mime_type)] 
+       && $mime_info(mime_type) ne "" 
+       && [string match "text/*" $mime_info(mime_type)] 
+   } {
       set text_sql [db_map grc_get_all_content_1]
   } else {
       set text_sql ""
@@ -483,7 +485,7 @@
   # Strip off file extension
   set last [string last "." $url]
   if { $last > 0 } {
-    set url [string range $url 0 [expr {$last - 1}]]
+    set url [string range $url 0 $last-1]
   }
 
   if {$root_folder ne ""} {