Index: openacs-4/packages/acs-tcl/tcl/mime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/mime-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/mime-procs.tcl	19 Sep 2003 13:07:38 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/mime-procs.tcl	15 Jun 2005 10:35:13 -0000	1.2
@@ -10,6 +10,10 @@
 #
 
 # new string features and inline scan are used, requiring 8.3.
+
+# If we have mime, don't do anything
+if {![catch {package require mime}]} {
+
 package require Tcl 8.3
 
 package provide mime 1.3.3
@@ -3583,3 +3587,4 @@
     return $result
 }
 
+}
\ No newline at end of file