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.37 -r1.38
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	22 Mar 2006 15:36:59 -0000	1.37
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	21 Apr 2006 11:57:31 -0000	1.38
@@ -184,17 +184,17 @@
             # Therefore it if it is 1, then it concluded successfully
             # but with warnings, so we switch it back to 0
             
-            if { $error_p == 0 } {
-                set error_p 1
+            if { $error_p == 1 } {
+                set error_p 0
             }
         }
         default {
-            set error_p 0
+            set error_p 1
             set errmsg "[_ imsld.lt_Could_not_determine_w]"
         }
     }
     
-    if { !$error_p } {
+    if { $error_p } {
         ns_log Notice "IMSLD::imsld::parse::expand_file: extract type $type failed $errmsg"
         imsld::parse::remove_dir -dir $tmp_dir
         return -code error "IMSLD::imsld::parse::expand_file: extract type $type failed $errmsg"