Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	26 Nov 2009 12:02:16 -0000	1.37
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	30 Nov 2009 10:20:53 -0000	1.38
@@ -102,9 +102,8 @@
 
     @return parent_id
   } { 
-    if {[my isobject ::$item_id]} {
-      return [::$item_id parent_id]
-    }
+    # TODO: the following line is deactivated, until we get rid of the "folder object" in xowiki
+    #if {[my isobject ::$item_id]} {return [::$item_id parent_id]}
     db_1row [my qn "get_parent"] "select parent_id from cr_items where item_id = :item_id"
     return $parent_id
   }
@@ -118,9 +117,8 @@
 
     @return parent_id
   } { 
-    if {[my isobject ::$item_id]} {
-      return [::$item_id parent_id]
-    }
+    # TODO: the following line is deactivated, until we get rid of the "folder object" in xowiki
+    #if {[my isobject ::$item_id]} {return [::$item_id parent_id]}
     db_1row  [my qn "get_name"] "select name from cr_items where item_id = :item_id"
     return $name
   }