Index: openacs-4/packages/imsld/tcl/imsld-cp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-cp-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/tcl/imsld-cp-procs.tcl	15 Nov 2005 17:20:24 -0000	1.3
+++ openacs-4/packages/imsld/tcl/imsld-cp-procs.tcl	9 Dec 2005 12:01:31 -0000	1.4
@@ -105,9 +105,9 @@
     set package_id [expr { [empty_string_p $package_id] ? [ad_conn package_id] : $package_id }]
     set item_id [expr { [empty_string_p $item_id] ? [db_nextval "acs_object_id_seq"] : $item_id }]
 
-    if { [empty_string_p $parent_id] } {
+    if { [string eq "" $parent_id] } {
         set parent_id [content::item::get_id -item_path "cr_manifest_${manifest_id}" -resolve_index f] 
-        if { [empty_string_p $parent_id] } {
+        if { [string eq "" $parent_id] } {
             return -code error "IMSLD::imsld::cp::organization_new: No parent folder for organization $item_id"
         }
     }