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.4 -r1.5
--- openacs-4/packages/xowiki/www/admin/import.tcl	3 May 2006 12:03:23 -0000	1.4
+++ openacs-4/packages/xowiki/www/admin/import.tcl	7 Aug 2006 20:58:41 -0000	1.5
@@ -19,6 +19,8 @@
 
       set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]
       set f [open $upload_tmpfile]; set content [read $f]; close $f
+
+      foreach o [::xowiki::Page allinstances] { $o destroy }
       if {[catch {eval $content} error]} {
 	set msg "Error: $error"
       } else {