Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl	1 Jan 2008 23:32:33 -0000	1.29
+++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl	24 Sep 2008 09:55:06 -0000	1.30
@@ -392,15 +392,20 @@
     
   # Constructor for a given URI
   RSS-client instproc init {} {
-    my parse [my load]
+    set XML [my load]
+    if {$XML ne ""} {
+      my parse [my load]
+    }
   }
   
   RSS-client instproc load { } {
     set r [::xo::HttpRequest new -url [my url] -volatile]
     #my msg "statuscode = [$r set status_code], content_type=[$r set content_type]"
-    set f [open /tmp/feed w]; fconfigure $f -translation binary; puts $f [$r set data]; close $f
-    set xml [$r set data]
-    return $xml
+    #set f [open /tmp/feed w]; fconfigure $f -translation binary; puts $f [$r set data]; close $f
+    if {[$r exists status] && [$r set status] eq "canceled"} {
+      my set errorMessage [$r set cancel_message]
+    }
+    return [$r set data]
     # the following does not appear to be necessary due to changes in http-client-procs. 
     #set charset utf-8
     #regexp {^<\?xml\s+version\s*=\s*\S+\s+encoding\s*=\s*[\"'](\S+)[\"']} $xml _ charset
@@ -454,7 +459,6 @@
     # Channel
     set cN [ $root child 1 channel ]
     set channel [::xowiki::RSS-client::channel create [self]::channel -root $cN]
-    puts $channel
 
     # Items
     my set items {}