Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xotcl-core/xotcl-core.info	9 Feb 2006 22:48:31 -0000	1.9
+++ openacs-4/packages/xotcl-core/xotcl-core.info	12 Feb 2006 01:08:02 -0000	1.10
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.34" url="http://media.wu-wien.ac.at/download/xotcl-core-0.34.apm">
+    <version name="0.35" url="http://media.wu-wien.ac.at/download/xotcl-core-0.35.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2006-02-09</release-date>
+        <release-date>2006-02-12</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -25,7 +25,7 @@
 when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating.</description>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.34"/>
+        <provides url="xotcl-core" version="0.35"/>
 
         <callbacks>
         </callbacks>
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.12 -r1.13
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 Feb 2006 22:48:31 -0000	1.12
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	12 Feb 2006 01:08:02 -0000	1.13
@@ -187,7 +187,7 @@
       }
       if {$cid eq ""} {
 	set cid $package_id
-      }
+      } 
     } else {
       set cid -100
     }
@@ -203,7 +203,7 @@
     }
     if {$folder_id eq ""} {
       set folder_id [content::folder::new -name $fullname -parent_id $parent_id \
-			 -package_id $package_id]
+			 -package_id $package_id -context_id $cid]
     }
     if {[apm_version_names_compare [ad_acs_version] 5.2] > -1} { 
       #### for search, we need the package_id
@@ -212,7 +212,7 @@
 	db_dml update_package_id \
 	    "update acs_objects set package_id = :package_id where object_id = $folder_id"
       }
-    }
+    } 
     my require_folder_object -folder_id $folder_id -package_id $package_id
     return $folder_id
   }