Index: openacs-4/packages/xowiki/www/admin/export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/export.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xowiki/www/admin/export.tcl	23 May 2008 15:25:46 -0000	1.9
+++ openacs-4/packages/xowiki/www/admin/export.tcl	9 Jun 2008 11:26:00 -0000	1.10
@@ -37,13 +37,20 @@
   #
   if {[$item_id istype ::xowiki::PageInstance]} {
     set template_id [$item_id page_template]
-    if {[lsearch $item_ids $template_id] == -1 &&
-        ![info exists included($template_id)]} {
-      ::xo::db::CrClass get_instance_from_db -item_id $template_id
-      $template_id volatile
-      #append content [$template_id marshall] \n
-      ns_write "[$template_id marshall] \n" 
-      set included($template_id) 1
+    while {1} {
+      if {[lsearch $item_ids $template_id] == -1 &&
+          ![info exists included($template_id)]} {
+        ::xo::db::CrClass get_instance_from_db -item_id $template_id
+        $template_id volatile
+        #append content [$template_id marshall] \n
+        ns_write "[$template_id marshall] \n" 
+        set included($template_id) 1
+      }
+      if {[$template_id istype ::xowiki::PageInstance]} {
+        set template_id [$template_id page_template]
+      } else {
+        break
+      }
     }
   }
   $item_id volatile