Index: openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl	18 Apr 2018 17:50:38 -0000	1.6
+++ openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl	18 Apr 2018 22:32:36 -0000	1.7
@@ -172,24 +172,24 @@
 
     foreach property $properties {
         set $property ""
-	    feed_parser::dom::set_child_text -node $channel_node -child $property
+        feed_parser::dom::set_child_text -node $channel_node -child $property
         set channel($property) [set $property]
     }
-    
+
     set channel_name [$channel_node nodeName]
-    
+
     # Do weird Atom-like stuff
     if { $channel_name eq "feed" } {
         # link
-        if { $link eq ""] } {
+        if { $link eq "" } {
             # Link is in a href
             set link_node [$channel_node selectNodes {*[local-name()='link' and @rel = 'alternate' and @type = 'text/html']/@href}]
             if { [llength $link_node] == 1 } {
                 set link_node [lindex $link_node 0]
                 set channel(link) [lindex $link_node 1]
             }
         }
-        
+
         # author
         set author_node [$channel_node selectNodes {*[local-name()='author']}]
         if { [llength $author_node] == 1 } {
@@ -200,7 +200,7 @@
                 set channel(managingEditor) "$email ($name)"
             }
         }
-        
+
         # tagline
         feed_parser::dom::set_child_text -node $channel_node -child tagline
         if { [info exists tagline] } {