Index: openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl,v
diff -u -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl	11 Sep 2013 13:07:22 -0000	1.3.2.2
+++ openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl	3 Oct 2013 08:33:57 -0000	1.3.2.3
@@ -57,7 +57,7 @@
 
     set image_url "/resources/dotlrn/logo-user.gif"
 
-    if { [empty_string_p $image_url] } {
+    if { $image_url eq "" } {
         set column_array(image) ""
     } else {
         set column_array(image) [list \
@@ -88,13 +88,13 @@
     set items [list]
     set counter 0
 
-    if { [string equal $descend_p f] } {
+    if {$descend_p eq "f"} {
         set parent_clause "parent_id = :folder_id"
     } else {
         set parent_clause [db_map descend_parent_clause]
     }
 
-    if { [string equal $include_revisions_p f] } {
+    if {$include_revisions_p eq "f"} {
         set revisions_clause "r.revision_id = o.live_revision"
     } else {
         set revisions_clause "r.item_id = o.object_id"
@@ -105,7 +105,7 @@
         set content "content"
         set description $description
 
-        if { [string equal $include_revisions_p t] } {
+        if {$include_revisions_p eq "t"} {
             append description "<br><br><b>Note:</b> This may be a new revision of an existing file."
         }
         
@@ -119,7 +119,7 @@
                           description $description \
                           timestamp $publish_timestamp ]
 
-        if { ![string equal $enclosure_match_patterns ""] } {
+        if { $enclosure_match_patterns ne "" } {
             foreach pattern $enclosure_match_patterns {
                 if { [string match $pattern $title] } {
                     lappend iteminfo \