Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl	2 Nov 2012 11:42:15 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl	3 Nov 2012 13:30:47 -0000	1.6
@@ -20,9 +20,8 @@
   ? {expr {$::xotcl::version < 1.5}} 0 "XOTcl Version $::xotcl::version >= 1.5"
 
   ? {expr {$::tcl_version < 8.5}} 0 "Tcl Version $::tcl_version >= 8.5.4"
-    if {[regexp {8[.]5[.]([0-9]+)$} $::tcl_patchLevel _ minor]} {
-      ? {expr {$minor < 4}} 0 "Tcl Version $::tcl_patchLevel >= 8.5.4"
-    }
+  if {[regexp {8[.]5[.]([0-9]+)$} $::tcl_patchLevel _ minor]} {
+    ? {expr {$minor < 4}} 0 "Tcl Version $::tcl_patchLevel >= 8.5.4"
   }
 
   set ns_cache_version_old [catch {ns_cache names util_memoize xxx}]