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 -r1.326 -r1.327
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Feb 2009 22:56:48 -0000	1.326
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	3 Feb 2009 09:26:23 -0000	1.327
@@ -1036,6 +1036,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
     }