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 -r1.13 -r1.14
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	14 Nov 2005 09:14:09 -0000	1.13
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	15 Nov 2005 08:54:38 -0000	1.14
@@ -245,19 +245,19 @@
         set equal_p 1
     }
 
+    set tree_length [llength $tree]
     if { $equal_p } {
-        if { [llength $tree] != $multiplicity } {
+        if { $tree_length != $multiplicity } {
             ad_return_error "[_ imsld.Error_parsing_file]" "[_ imsld.lt_There_must_be_exactly]"
             ad_script_abort
         }
     } elseif { $greather_than_p } {
-        if { [llength $tree] < $multiplicity } {
-            set tree_length [llength $tree]
+        if { $tree_length < $multiplicity } {
             ad_return_error "[_ imsld.Error_parsing_file]" "[_ imsld.lt_There_cant_be_less_th]"
             ad_script_abort
         } 
     } else {
-        if { [llength $tree] > $multiplicity } {
+        if { $tree_length > $multiplicity } {
             ad_return_error "[_ imsld.Error_parsing_file]" "[_ imsld.lt_There_cant_greather_t]"
             ad_script_abort
         }