Index: openacs-4/packages/acs-tcl/tcl/base64-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/base64-procs.tcl,v
diff -u -r1.1 -r1.1.8.1
--- openacs-4/packages/acs-tcl/tcl/base64-procs.tcl	19 Sep 2003 13:07:38 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/base64-procs.tcl	4 Aug 2005 05:48:14 -0000	1.1.8.1
@@ -17,6 +17,7 @@
 # Version 2.2.1 bugfixes
 # Version 2.2.2 bugfixes
 
+if {[catch {package require base64}]} {
 package require Tcl 8.2
 namespace eval ::base64 {
     namespace export encode decode
@@ -321,3 +322,4 @@
 
 package provide base64 2.2.2
 
+}
\ No newline at end of file
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.1.8.1
--- 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	4 Aug 2005 05:48:14 -0000	1.1.8.1
@@ -9,6 +9,7 @@
 # unpublished package of 1999.
 #
 
+if {[catch {package require mime}]} {
 # new string features and inline scan are used, requiring 8.3.
 package require Tcl 8.3
 
@@ -3582,4 +3583,4 @@
     append result $field
     return $result
 }
-
+}