Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -N -r1.63 -r1.63.4.1
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	25 Apr 2007 10:52:30 -0000	1.63
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	25 Jun 2007 17:46:54 -0000	1.63.4.1
@@ -1230,7 +1230,7 @@
         imsld::parse::validate_multiplicity -tree $lrp_datatype -multiplicity 1 -element_name "locrole-property datatype" -equal
         set lrp_datatype [string tolower [imsld::parse::get_attribute -node $lrp_datatype -attr_name datatype]]
 
-        set role_ref [$lrp_datatype selectNodes "*\[local-name()='role-ref'\]"]
+        set role_ref [$locrole_property selectNodes "*\[local-name()='role-ref'\]"]
         imsld::parse::validate_multiplicity -tree $lrp_datatype -multiplicity 1 -element_name "locrole-property role" -equal
         set ref [imsld::parse::get_attribute -node $role_ref -attr_name ref]
         if { ![db_0or1row get_role_id {
@@ -1318,15 +1318,15 @@
     foreach glob_property $glob_properties {
         set g_identifier [imsld::parse::get_attribute -node $glob_property -attr_name identifier]
         set g_existing [$glob_property selectNodes "*\[local-name()='existing'\]"] 
-        imsld::parse::validate_multiplicity -tree $g_exiting -multiplicity 1 -element_name "existing(glob)" -lower_than
+        imsld::parse::validate_multiplicity -tree $g_existing -multiplicity 1 -element_name "existing(glob)" -lower_than
         if { [llength $g_existing] } {
             set g_existing_href [imsld::parse::get_attribute -node $g_exiting -attr_name href]
         } else {
             set g_existing_href ""
         }
 
         set global_def [$glob_property selectNodes "*\[local-name()='global-definition'\]"]
-        set global_def_list [imsld::parse::parse_and_create_global_def -type glob \
+        set global_def_list [imsld::parse::parse_and_create_global_def -type global \
                                  -identifier $g_identifier \
                                  -existing_href $g_existing_href \
                                  -global_def_node $global_def \