Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.122 -r1.123
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	23 Jun 2010 12:51:37 -0000	1.122
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	30 Jun 2010 21:24:18 -0000	1.123
@@ -175,6 +175,7 @@
     if {$mime eq "*/*" || $mime eq "application/octet-stream"} {
       # ns_guesstype was failing
       switch [file extension $fn] {
+        .xotcl {set mime text/plain}
         .mp3 {set mime audio/mpeg}
         .cdf {set mime application/x-netcdf}
         .flv {set mime video/x-flv}
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.411 -r1.412
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Jun 2010 12:38:58 -0000	1.411
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Jun 2010 21:24:18 -0000	1.412
@@ -2093,13 +2093,6 @@
         -mod_user [::xo::get_user_name $creation_user] \
         -size [file size [my full_file_name]]
 
-    if {$mime_type eq "application/octet-stream"} {
-      # We can fix for viewing the content-type for a view types
-      if {[string match *tcl $stripped_name]} {
-	set mime_type text/plain
-      }
-    }
-
     switch -glob $mime_type {
       image/* {
 	set l [Link new -volatile \
@@ -2111,7 +2104,7 @@
       }
       text/plain {
 	set text [::xowiki::read_file [my full_file_name]]
-	set preview "<pre>[::xowiki::Includelet html_encode $text]</pre>"
+	set preview "<pre class='code'>[::xowiki::Includelet html_encode $text]</pre>"
       }
       default {set preview ""}
     }