Index: openacs-4/packages/learning-content/tcl/learning-content-xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/learning-content/tcl/learning-content-xowiki-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/learning-content/tcl/learning-content-xowiki-procs.tcl	5 Mar 2009 21:28:56 -0000	1.1
+++ openacs-4/packages/learning-content/tcl/learning-content-xowiki-procs.tcl	11 Mar 2009 16:09:11 -0000	1.2
@@ -51,8 +51,7 @@
         if {[exists_and_not_null item_id]} {
             set category_id [category::get_mapped_categories $item_id]
             set tree_id [category::get_tree $category_id]
-            set category_id [learning_content::category::category_parent \
-                        -category_id $category_id -level 1 -tree_id $tree_id]
+            set category_id [learning_content::get_unit_id -category_id $category_id]
             set activity_id [learning_content::activity_exists_p -item_id $item_id]
             if { !$activity_id } {
         # AR: catch the case when a page has been deleted and will be imported