Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -N -r1.239.2.3 -r1.239.2.4
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	26 Feb 2019 18:06:43 -0000	1.239.2.3
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	10 Mar 2019 21:06:20 -0000	1.239.2.4
@@ -1750,7 +1750,7 @@
           set entry "<a href='[ns_quotehtml [$page pretty_link]]'>[ns_quotehtml [$page name]]</a> contains [join $unresolved {, }]"
           lappend pages_with_unresolved_items $entry
         } else {
-          $page destroy
+          # $page destroy
         }
       }
     }
@@ -4804,7 +4804,27 @@
   }
 }
 
+namespace eval ::xowiki::includelet {
 
+  ::xowiki::IncludeletClass create community-link \
+      -superclass ::xowiki::Includelet \
+      -parameter {
+        {__decoration none}
+        {parameter_declaration {
+          {-text ""}
+          {-url ""}
+        }}
+      } -instproc render {} {
+        :get_parameters
+        if {[info commands ::dotlrn_community::get_community_id] ne ""} { 
+          set community_id [::dotlrn_community::get_community_id]
+          set base_url [dotlrn_community::get_community_url $community_id]
+
+          return [subst {<a href="$base_url/$url">[ns_quotehtml $text]</a>}]
+        }
+      }
+}
+
 ::xo::library source_dependent
 
 #