Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	19 Sep 2002 13:08:43 -0000	1.5
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	19 Feb 2003 13:38:29 -0000	1.5.2.1
@@ -229,7 +229,7 @@
       if { ![template::util::is_nil template_revision_id] } {
         get_mime_info $template_revision_id mime_info   
 
-        if { [info exists mime_info] } {
+        if { [info exists mime_info(file_extension)] } {
           set file_extension $mime_info(file_extension)
         }
       }
@@ -252,7 +252,11 @@
     }
 
     get_mime_info $revision_id mime_info   
-    set file_extension $mime_info(file_extension)
+    if { [info exists mime_info(file_extension)] } {
+        set file_extension $mime_info(file_extension)
+    } else { 
+        set file_extension "html"
+    }
   }
 
   append file_url ".$file_extension"