Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -N -rb8ca306282c9a1000b1c93ffd97f7f4673953f65 -r7fb9a4603a2c84fafbfe3659bcbe6f39ab3b4993
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision b8ca306282c9a1000b1c93ffd97f7f4673953f65)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 7fb9a4603a2c84fafbfe3659bcbe6f39ab3b4993)
@@ -1247,7 +1247,7 @@
     set oc 0
     set mc 0
     foreach file [glob -nocomplain -- {*}$args] {
-      if {[catch {set f [open $file]} msg]} then {
+      if {[catch {set f [open $file]} msg]} {
         catch {close $f}
         cd $old
         error $msg