Index: openacs-4/packages/rss-support/tcl/rss-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-support-procs.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/rss-support/tcl/rss-support-procs.tcl	15 Aug 2018 16:37:50 -0000	1.8
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.tcl	15 Mar 2021 17:18:52 -0000	1.8.2.1
@@ -88,16 +88,25 @@
 
     @error
 } {
-    set subscr_id [rss_support::get_subscr_id \
-                       -summary_context_id $summary_context_id \
-                       -impl_name $impl_name \
-                       -owner $owner]
-    set report_dir [rss_gen_report_dir -subscr_id $subscr_id]
-    # remove generated RSS reports for this subscription
-    file delete -force -- $report_dir
-    package_exec_plsql \
-        -var_list [list [list subscr_id $subscr_id]] \
-        rss_gen_subscr del
+    if {[rss_support::subscription_exists \
+            -summary_context_id $summary_context_id \
+            -impl_name $impl_name]
+    } {
+        set subscr_id [rss_support::get_subscr_id \
+                           -summary_context_id $summary_context_id \
+                           -impl_name $impl_name \
+                           -owner $owner]
+        set report_dir [rss_gen_report_dir -subscr_id $subscr_id]
+        # remove generated RSS reports for this subscription
+        file delete -force -- $report_dir
+        package_exec_plsql \
+            -var_list [list [list subscr_id $subscr_id]] \
+            rss_gen_subscr del
+    } else {
+        ns_log Warning "rss_support::del_subscription \
+            (summary_context_id $summary_context_id -impl_name $impl_name) \
+            does not exist!"
+    }
 }
 
 ad_proc -public rss_support::subscription_exists {