Index: openacs-4/packages/xowiki/www/admin/import.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/import.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xowiki/www/admin/import.tcl	14 Jun 2010 11:29:44 -0000	1.18
+++ openacs-4/packages/xowiki/www/admin/import.tcl	22 Jun 2010 07:35:49 -0000	1.19
@@ -47,7 +47,8 @@
         set preexists($o) 1
       }
       if {[catch {namespace eval ::xo::import $content} error]} {
-        set msg "Error: $error"
+	#my msg "Error: $::errorInfo"
+        set msg "Error: $error\n$::errorInfo"
       } else {
         set objects [list]
         foreach o [::xowiki::Page allinstances] {
@@ -60,7 +61,8 @@
           set msg [$package_id import -replace $replace -create_user_ids $create_user_ids \
                        -parent_id $parent_id -objects $objects]
         } errMsg]} {
-          ns_log notice "Error during import: $errMsg"
+          ns_log notice "Error during import: $errMsg\nErrInfo: $::errorInfo"
+          ::xotcl::Object msg "Error during import: $errMsg\nErrInfo: $::errorInfo"
           foreach o $objects {$o destroy}
           error $errMsg
         }