Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.314.2.3 -r1.314.2.4
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Feb 2009 22:58:51 -0000	1.314.2.3
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	3 Feb 2009 09:28:05 -0000	1.314.2.4
@@ -1035,6 +1035,16 @@
     if {$page eq ""} {
       return [my error_during_render [_ xowiki.error-includelet-unknown]]
     }
+    if {[$page istype ::xowiki::Page]} {
+      set package_id [$page package_id]
+      set allowed [[$package_id set policy] check_permissions \
+                       -package_id $package_id \
+                       -user_id [::xo::cc set untrusted_user_id] \
+                       $page view]
+      if {!$allowed} {
+        return "<div class='errorMsg'>Unsufficient priviledges to view content of [$page name].</div>"
+      }
+    }
     if {[info exists configure]} {
       eval $page configure $configure
     }