Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.92 -r1.93
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	17 Sep 2008 10:14:20 -0000	1.92
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	27 Sep 2008 17:18:39 -0000	1.93
@@ -47,8 +47,8 @@
     my forward var uplevel #$level set 
 
     my instvar data folder_id
+    set folder_id [[$data package_id] folder_id]
     set class     [$data info class]
-    set folder_id [$data set parent_id]
 
     if {![my exists add_page_title]} {
       my set add_page_title [_ xotcl-core.create_new_type \